;;;; Generated on 10/20/2021 at 09:40:03 (UTC+10).

(COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0)
                      COMMON-LISP:SAFETY COMMON-LISP:DEBUG
                      COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM (COMMON-LISP:INLINE %%ZHEGST %ZHEGST
                      %%ZLA_GBRPVGRW %ZLA_GBRPVGRW %%ZHEEV %ZHEEV
                      %%SGBSVX %SGBSVX %%SSYTRF_AA_2STAGE
                      %SSYTRF_AA_2STAGE %%ZGERFS %ZGERFS %%DORMHR
                      %DORMHR %%SSPEVD %SSPEVD %%SLADIV %SLADIV
                      %%CUNMHR %CUNMHR %%SLARZT %SLARZT %%CHERFSX
                      %CHERFSX %%ZPFTRF %ZPFTRF %%SSYTRI_3 %SSYTRI_3
                      %%CLANTP %CLANTP %%SLAED8 %SLAED8 %%ZLASYF_RK
                      %ZLASYF_RK %%CHEGVX %CHEGVX %%CSYTF2_ROOK
                      %CSYTF2_ROOK %%ZLA_SYRFSX_EXTENDED
                      %ZLA_SYRFSX_EXTENDED %%ZGELS %ZGELS %%DORMRZ
                      %DORMRZ %%CGEBD2 %CGEBD2 %%CTPQRT2 %CTPQRT2
                      %%CHETRS %CHETRS %%ZLASCL %ZLASCL %%DSTEDC
                      %DSTEDC %%DLATDF %DLATDF %%ZCGESV %ZCGESV
                      %%DLANEG %DLANEG %%DLAQR0 %DLAQR0
                      %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE %%SPBTF2
                      %SPBTF2 %%SLARRF %SLARRF %%SLASWLQ %SLASWLQ
                      %%ZPBSTF %ZPBSTF %%SGEQLF %SGEQLF %%CHETRD_HE2HB
                      %CHETRD_HE2HB %%ZHEEVX_2STAGE %ZHEEVX_2STAGE
                      %%SSYEV %SSYEV %%CLANHB %CLANHB %%ZLARZ %ZLARZ
                      %%ZLA_GBRCOND_X %ZLA_GBRCOND_X %%CLACN2 %CLACN2
                      %%SLAQGB %SLAQGB %%ZHETRI_ROOK %ZHETRI_ROOK
                      %%ZGESDD %ZGESDD %%CLAQP2 %CLAQP2 %%SORMLQ
                      %SORMLQ %%DORMQR %DORMQR %%CLATSQR %CLATSQR
                      %%CLATBS %CLATBS %%CLA_SYRCOND_X %CLA_SYRCOND_X
                      %%DPOTRI %DPOTRI %%DGEQRT2 %DGEQRT2 %%ZGELQ
                      %ZGELQ %%CLARFGP %CLARFGP %%ZDRSCL %ZDRSCL
                      %%DSBEVX_2STAGE %DSBEVX_2STAGE %%CTBCON %CTBCON
                      %%ZHETRS2 %ZHETRS2 %%CSYCON %CSYCON %%SPOTRF2
                      %SPOTRF2 %%ZLAR1V %ZLAR1V %%SPBTRS %SPBTRS
                      %%CHBEV_2STAGE %CHBEV_2STAGE %%SLAISNAN %SLAISNAN
                      %%ZTFTRI %ZTFTRI %%SLANHS %SLANHS %%SCSUM1
                      %SCSUM1 %%CGEMLQT %CGEMLQT %%SGEQR2P %SGEQR2P
                      %%DSYEV_2STAGE %DSYEV_2STAGE %%ZSYCONVF %ZSYCONVF
                      %%CLAIC1 %CLAIC1 %%DTPLQT %DTPLQT %%DSYSV %DSYSV
                      %%SGEHRD %SGEHRD %%CHBEVD %CHBEVD %%ZPOEQU
                      %ZPOEQU %%SBBCSD %SBBCSD %%ZSYCON_ROOK
                      %ZSYCON_ROOK %%ZLASWLQ %ZLASWLQ %%DGTTS2 %DGTTS2
                      %%DORGQL %DORGQL %%SLARSCL2 %SLARSCL2 %%ZTGSEN
                      %ZTGSEN %%CUNMBR %CUNMBR %%ZGGEV3 %ZGGEV3
                      %%ZGGEVX %ZGGEVX %%DORGRQ %DORGRQ %%ZSYSWAPR
                      %ZSYSWAPR %%ZGGHD3 %ZGGHD3 %%SLABRD %SLABRD
                      %%SGETF2 %SGETF2 %%DGELQ %DGELQ %%SSBGVD %SSBGVD
                      %%SSYCONVF %SSYCONVF %%DLARRV %DLARRV %%ZHSEIN
                      %ZHSEIN %%DPSTRF %DPSTRF %%SSYTRS %SSYTRS
                      %%ZGTTRS %ZGTTRS %%SLARFB %SLARFB %%ZTPQRT2
                      %ZTPQRT2 %%CGBSV %CGBSV %%DLAUUM %DLAUUM %%ZHPTRD
                      %ZHPTRD %%CLALS0 %CLALS0 %%DSYCONVF_ROOK
                      %DSYCONVF_ROOK %%CGGSVP3 %CGGSVP3 %%CSYTRS_ROOK
                      %CSYTRS_ROOK %%CPTRFS %CPTRFS %%ZGESVJ %ZGESVJ
                      %%CGELQ2 %CGELQ2 %%DLAED6 %DLAED6 %%DTGEVC
                      %DTGEVC %%STPTTF %STPTTF %%DLANHS %DLANHS %%CHPEV
                      %CHPEV %%ZHESV_AA_2STAGE %ZHESV_AA_2STAGE
                      %%SSPTRI %SSPTRI %%ZTPRFS %ZTPRFS %%SSYEV_2STAGE
                      %SSYEV_2STAGE %%DLASYF %DLASYF %%DSYTRS_AA_2STAGE
                      %DSYTRS_AA_2STAGE %%CTPTTF %CTPTTF %%SGELQT
                      %SGELQT %%DLA_SYRCOND %DLA_SYRCOND %%DLAQPS
                      %DLAQPS %%ZROT %ZROT %%CPOSV %CPOSV %%CLAGS2
                      %CLAGS2 %%ZHETRS_3 %ZHETRS_3 %%ZUNGTSQR %ZUNGTSQR
                      %%DGBCON %DGBCON %%ZGEESX %ZGEESX %%CLANGT
                      %CLANGT %%ZTPRFB %ZTPRFB %%CHETF2 %CHETF2
                      %%DLAQR3 %DLAQR3 %%ZHETRF_AA %ZHETRF_AA %%CHBTRD
                      %CHBTRD %%CGESVX %CGESVX %%ZTBTRS %ZTBTRS
                      %%DLATRS %DLATRS %%ZLARFB %ZLARFB %%ZLAGS2
                      %ZLAGS2 %%SLATSQR %SLATSQR %%SORMRQ %SORMRQ
                      %%DLASD2 %DLASD2 %%SLA_GERPVGRW %SLA_GERPVGRW
                      %%DLA_SYRPVGRW %DLA_SYRPVGRW %%SLAGS2 %SLAGS2
                      %%CLAUNHR_COL_GETRFNP2 %CLAUNHR_COL_GETRFNP2
                      %%CUNMLQ %CUNMLQ %%ZPOTRF2 %ZPOTRF2 %%SPTEQR
                      %SPTEQR %%CSPTRI %CSPTRI %%DTGEX2 %DTGEX2
                      %%STGSY2 %STGSY2 %%CLA_PORFSX_EXTENDED
                      %CLA_PORFSX_EXTENDED %%ZLATRS %ZLATRS %%SGBEQUB
                      %SGBEQUB %%CHEGV_2STAGE %CHEGV_2STAGE %%SLARUV
                      %SLARUV %%CHEEV_2STAGE %CHEEV_2STAGE %%ZUNBDB4
                      %ZUNBDB4 %%CHBEV %CHBEV %%CLANTR %CLANTR %%SLALN2
                      %SLALN2 %%SLAUUM %SLAUUM %%ZLAUNHR_COL_GETRFNP2
                      %ZLAUNHR_COL_GETRFNP2 %%DLA_WWADDW %DLA_WWADDW
                      %%DTGEXC %DTGEXC %%DSTEBZ %DSTEBZ %%CPBTRF
                      %CPBTRF %%SLA_GBRCOND %SLA_GBRCOND %%SORGRQ
                      %SORGRQ %%DGESVX %DGESVX %%SLARRC %SLARRC
                      %%CHGEQZ %CHGEQZ %%ZTZRZF %ZTZRZF %%ZPPEQU
                      %ZPPEQU %%DORBDB6 %DORBDB6 %%SPTTS2 %SPTTS2
                      %%SSYCON_ROOK %SSYCON_ROOK %%CSPSV %CSPSV
                      %%SGEJSV %SGEJSV %%ZLANGE %ZLANGE %%SSPGV %SSPGV
                      %%ZHETRI_3 %ZHETRI_3 %%CHECON_ROOK %CHECON_ROOK
                      %%SGEBD2 %SGEBD2 %%SSPGVX %SSPGVX %%CGEQRT
                      %CGEQRT %%DGGESX %DGGESX %%ZLAQR0 %ZLAQR0
                      %%DORML2 %DORML2 %%SORBDB3 %SORBDB3 %%CLANHE
                      %CLANHE %%CGEQLF %CGEQLF %%CLASYF_ROOK
                      %CLASYF_ROOK %%CHEGV %CHEGV %%ZSYCONVF_ROOK
                      %ZSYCONVF_ROOK %%CPOCON %CPOCON %%DSPGVX %DSPGVX
                      %%ZUNMR3 %ZUNMR3 %%DTRTRS %DTRTRS %%CLARTV
                      %CLARTV %%CSYEQUB %CSYEQUB %%ZUNML2 %ZUNML2
                      %%ZUNBDB6 %ZUNBDB6 %%ZTRTI2 %ZTRTI2 %%DLAED2
                      %DLAED2 %%SLARRJ %SLARRJ %%ZLARRV %ZLARRV
                      %%CHETRS_AA %CHETRS_AA %%STREXC %STREXC %%SSYCONV
                      %SSYCONV %%CSYTRS_AA %CSYTRS_AA %%SLAED5 %SLAED5
                      %%SORHR_COL %SORHR_COL %%ZLARCM %ZLARCM %%CGGLSE
                      %CGGLSE %%DPSTF2 %DPSTF2 %%CSTEDC %CSTEDC
                      %%SORMR2 %SORMR2 %%ZTGSY2 %ZTGSY2 %%ZHETRS
                      %ZHETRS %%CUNHR_COL %CUNHR_COL %%DLARZB %DLARZB
                      %%DLANSY %DLANSY %%CSYSVXX %CSYSVXX %%ZSYTF2_ROOK
                      %ZSYTF2_ROOK %%CGTTRS %CGTTRS %%SGEQRT2 %SGEQRT2
                      %%SORBDB1 %SORBDB1 %%ZUNM22 %ZUNM22 %%SLASD5
                      %SLASD5 %%DLA_GEAMV %DLA_GEAMV %%CHBEVX_2STAGE
                      %CHBEVX_2STAGE %%SSYTRD_SY2SB %SSYTRD_SY2SB
                      %%DPPEQU %DPPEQU %%CUNBDB3 %CUNBDB3 %%ZGEQP3
                      %ZGEQP3 %%CGEQR2P %CGEQR2P %%ZLAEIN %ZLAEIN))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEGST "zhegst_")
  ((ITYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEGST (ITYPE UPLO N A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF12971 ':INT32)
                              (N-REF12973 ':INT32)
                              (LDA-REF12975 ':INT32)
                              (LDB-REF12977 ':INT32)
                              (INFO-REF12978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF12971 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12973 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12975 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF12977 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12978 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12974 A)
                                            (B-REF12976 B))
      (%%ZHEGST ITYPE-REF12971 UPLO N-REF12973 A-REF12974 LDA-REF12975
       B-REF12976 LDB-REF12977 INFO-REF12978))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_GBRPVGRW "zla_gbrpvgrw_")
  ((N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NCOLS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRPVGRW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12979 ':INT32)
                              (KL-REF12980 ':INT32)
                              (KU-REF12981 ':INT32)
                              (NCOLS-REF12982 ':INT32)
                              (LDAB-REF12984 ':INT32)
                              (LDAFB-REF12986 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF12980 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF12981 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF12982 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF12984 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF12986 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF12983 AB)
                                            (AFB-REF12985 AFB))
      (%%ZLA_GBRPVGRW N-REF12979 KL-REF12980 KU-REF12981 NCOLS-REF12982
       AB-REF12983 LDAB-REF12984 AFB-REF12985 LDAFB-REF12986))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEEV "zheev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEEV (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12989 ':INT32)
                              (LDA-REF12991 ':INT32)
                              (LWORK-REF12994 ':INT32)
                              (INFO-REF12996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12989 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF12991 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF12994 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF12996 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF12990 A)
                                            (W-REF12992 W)
                                            (WORK-REF12993 WORK)
                                            (RWORK-REF12995 RWORK))
      (%%ZHEEV JOBZ UPLO N-REF12989 A-REF12990 LDA-REF12991 W-REF12992
       WORK-REF12993 LWORK-REF12994 RWORK-REF12995 INFO-REF12996))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBSVX "sgbsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBSVX
    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B LDB X
     LDX RCOND FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF12999 ':INT32)
                              (KL-REF13000 ':INT32)
                              (KU-REF13001 ':INT32)
                              (NRHS-REF13002 ':INT32)
                              (LDAB-REF13004 ':INT32)
                              (LDAFB-REF13006 ':INT32)
                              (LDB-REF13012 ':INT32)
                              (LDX-REF13014 ':INT32)
                              (RCOND-REF13015 ':FLOAT)
                              (INFO-REF13020 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF12999 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13000 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13001 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13002 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13004 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13006 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13012 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13014 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13015 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13020 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13003 AB)
                                            (AFB-REF13005 AFB)
                                            (IPIV-REF13007 IPIV)
                                            (R-REF13009 R)
                                            (C-REF13010 C)
                                            (B-REF13011 B)
                                            (X-REF13013 X)
                                            (FERR-REF13016 FERR)
                                            (BERR-REF13017 BERR)
                                            (WORK-REF13018 WORK)
                                            (IWORK-REF13019 IWORK))
      (%%SGBSVX FACT TRANS N-REF12999 KL-REF13000 KU-REF13001
       NRHS-REF13002 AB-REF13003 LDAB-REF13004 AFB-REF13005
       LDAFB-REF13006 IPIV-REF13007 EQUED R-REF13009 C-REF13010
       B-REF13011 LDB-REF13012 X-REF13013 LDX-REF13014 RCOND-REF13015
       FERR-REF13016 BERR-REF13017 WORK-REF13018 IWORK-REF13019
       INFO-REF13020))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SSYTRF_AA_2STAGE "ssytrf_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TB :FOREIGN-ADDRESS)
   (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRF_AA_2STAGE
    (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRF_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13022 ':INT32)
                              (LDA-REF13024 ':INT32)
                              (LTB-REF13026 ':INT32)
                              (LWORK-REF13030 ':INT32)
                              (INFO-REF13031 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13022 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13024 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF13026 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13030 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13031 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13023 A)
                                            (TB-REF13025 TB)
                                            (IPIV-REF13027 IPIV)
                                            (IPIV2-REF13028 IPIV2)
                                            (WORK-REF13029 WORK))
      (%%SSYTRF_AA_2STAGE UPLO N-REF13022 A-REF13023 LDA-REF13024
       TB-REF13025 LTB-REF13026 IPIV-REF13027 IPIV2-REF13028
       WORK-REF13029 LWORK-REF13030 INFO-REF13031))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGERFS "zgerfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGERFS
    (TRANS N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13033 ':INT32)
                              (NRHS-REF13034 ':INT32)
                              (LDA-REF13036 ':INT32)
                              (LDAF-REF13038 ':INT32)
                              (LDB-REF13041 ':INT32)
                              (LDX-REF13043 ':INT32)
                              (INFO-REF13048 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13033 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13034 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13036 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13038 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13041 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13043 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13048 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13035 A)
                                            (AF-REF13037 AF)
                                            (IPIV-REF13039 IPIV)
                                            (B-REF13040 B)
                                            (X-REF13042 X)
                                            (FERR-REF13044 FERR)
                                            (BERR-REF13045 BERR)
                                            (WORK-REF13046 WORK)
                                            (RWORK-REF13047 RWORK))
      (%%ZGERFS TRANS N-REF13033 NRHS-REF13034 A-REF13035 LDA-REF13036
       AF-REF13037 LDAF-REF13038 IPIV-REF13039 B-REF13040 LDB-REF13041
       X-REF13042 LDX-REF13043 FERR-REF13044 BERR-REF13045
       WORK-REF13046 RWORK-REF13047 INFO-REF13048))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMHR "dormhr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMHR
    (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMHR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13051 ':INT32) (N-REF13052 ':INT32)
                              (ILO-REF13053 ':INT32)
                              (IHI-REF13054 ':INT32)
                              (LDA-REF13056 ':INT32)
                              (LDC-REF13059 ':INT32)
                              (LWORK-REF13061 ':INT32)
                              (INFO-REF13062 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13051 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13052 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13053 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13054 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13056 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13059 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13061 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13062 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13055 A)
                                            (TAU-REF13057 TAU)
                                            (C-REF13058 C)
                                            (WORK-REF13060 WORK))
      (%%DORMHR SIDE TRANS M-REF13051 N-REF13052 ILO-REF13053
       IHI-REF13054 A-REF13055 LDA-REF13056 TAU-REF13057 C-REF13058
       LDC-REF13059 WORK-REF13060 LWORK-REF13061 INFO-REF13062))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPEVD "sspevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPEVD
    (JOBZ UPLO N AP W Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13065 ':INT32)
                              (LDZ-REF13069 ':INT32)
                              (LWORK-REF13071 ':INT32)
                              (LIWORK-REF13073 ':INT32)
                              (INFO-REF13074 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13065 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13069 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13071 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF13073 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13074 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13066 AP)
                                            (W-REF13067 W)
                                            (Z-REF13068 Z)
                                            (WORK-REF13070 WORK)
                                            (IWORK-REF13072 IWORK))
      (%%SSPEVD JOBZ UPLO N-REF13065 AP-REF13066 W-REF13067 Z-REF13068
       LDZ-REF13069 WORK-REF13070 LWORK-REF13071 IWORK-REF13072
       LIWORK-REF13073 INFO-REF13074))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLADIV "sladiv_")
  ((A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLADIV (A B C D P Q)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLADIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT P)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT Q))
  (CFFI:WITH-FOREIGN-OBJECTS ((A-REF13075 ':FLOAT) (B-REF13076 ':FLOAT)
                              (C-REF13077 ':FLOAT) (D-REF13078 ':FLOAT)
                              (P-REF13079 ':FLOAT)
                              (Q-REF13080 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF A-REF13075 :FLOAT) A)
    (COMMON-LISP:SETF (CFFI:MEM-REF B-REF13076 :FLOAT) B)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF13077 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF D-REF13078 :FLOAT) D)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF13079 :FLOAT) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF13080 :FLOAT) Q)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLADIV A-REF13075 B-REF13076 C-REF13077 D-REF13078 P-REF13079
       Q-REF13080))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMHR "cunmhr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMHR
    (SIDE TRANS M N ILO IHI A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMHR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13083 ':INT32) (N-REF13084 ':INT32)
                              (ILO-REF13085 ':INT32)
                              (IHI-REF13086 ':INT32)
                              (LDA-REF13088 ':INT32)
                              (LDC-REF13091 ':INT32)
                              (LWORK-REF13093 ':INT32)
                              (INFO-REF13094 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13083 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13084 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13085 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13086 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13088 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13091 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13093 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13094 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13087 A)
                                            (TAU-REF13089 TAU)
                                            (C-REF13090 C)
                                            (WORK-REF13092 WORK))
      (%%CUNMHR SIDE TRANS M-REF13083 N-REF13084 ILO-REF13085
       IHI-REF13086 A-REF13087 LDA-REF13088 TAU-REF13089 C-REF13090
       LDC-REF13091 WORK-REF13092 LWORK-REF13093 INFO-REF13094))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARZT "slarzt_")
  ((DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARZT (DIRECT STOREV N K V LDV TAU T LDT)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARZT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13097 ':INT32) (K-REF13098 ':INT32)
                              (LDV-REF13100 ':INT32)
                              (LDT-REF13103 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13097 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13098 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF13100 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13103 :INT32) LDT)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13099 V)
                                            (TAU-REF13101 TAU)
                                            (T-REF13102 T))
      (%%SLARZT DIRECT STOREV N-REF13097 K-REF13098 V-REF13099
       LDV-REF13100 TAU-REF13101 T-REF13102 LDT-REF13103))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHERFSX "cherfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHERFSX
    (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHERFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13106 ':INT32)
                              (NRHS-REF13107 ':INT32)
                              (LDA-REF13109 ':INT32)
                              (LDAF-REF13111 ':INT32)
                              (LDB-REF13115 ':INT32)
                              (LDX-REF13117 ':INT32)
                              (RCOND-REF13118 ':FLOAT)
                              (N_ERR_BNDS-REF13120 ':INT32)
                              (NPARAMS-REF13123 ':INT32)
                              (INFO-REF13127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13106 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13107 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13109 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13111 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13115 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13117 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13118 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF13120 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF13123 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13108 A)
                                            (AF-REF13110 AF)
                                            (IPIV-REF13112 IPIV)
                                            (S-REF13113 S)
                                            (B-REF13114 B)
                                            (X-REF13116 X)
                                            (BERR-REF13119 BERR)
                                            (ERR_BNDS_NORM-REF13121
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF13122
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF13124 PARAMS)
                                            (WORK-REF13125 WORK)
                                            (RWORK-REF13126 RWORK))
      (%%CHERFSX UPLO EQUED N-REF13106 NRHS-REF13107 A-REF13108
       LDA-REF13109 AF-REF13110 LDAF-REF13111 IPIV-REF13112 S-REF13113
       B-REF13114 LDB-REF13115 X-REF13116 LDX-REF13117 RCOND-REF13118
       BERR-REF13119 N_ERR_BNDS-REF13120 ERR_BNDS_NORM-REF13121
       ERR_BNDS_COMP-REF13122 NPARAMS-REF13123 PARAMS-REF13124
       WORK-REF13125 RWORK-REF13126 INFO-REF13127))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPFTRF "zpftrf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13130 ':INT32)
                              (INFO-REF13132 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13130 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13132 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13131 A))
      (%%ZPFTRF TRANSR UPLO N-REF13130 A-REF13131 INFO-REF13132))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRI_3 "ssytri_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13134 ':INT32)
                              (LDA-REF13136 ':INT32)
                              (LWORK-REF13140 ':INT32)
                              (INFO-REF13141 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13134 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13136 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13140 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13141 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13135 A)
                                            (E-REF13137 E)
                                            (IPIV-REF13138 IPIV)
                                            (WORK-REF13139 WORK))
      (%%SSYTRI_3 UPLO N-REF13134 A-REF13135 LDA-REF13136 E-REF13137
       IPIV-REF13138 WORK-REF13139 LWORK-REF13140 INFO-REF13141))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANTP "clantp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANTP (NORM UPLO DIAG N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13145 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13145 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF13146 AP)
                                            (WORK-REF13147 WORK))
      (%%CLANTP NORM UPLO DIAG N-REF13145 AP-REF13146 WORK-REF13147))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED8 "slaed8_")
  ((ICOMPQ :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (QSIZ :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (INDXQ :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (CUTPNT :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (DLAMDA :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (INDXP :FOREIGN-ADDRESS)
   (INDX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED8
    (ICOMPQ K N QSIZ D Q LDQ INDXQ RHO CUTPNT Z DLAMDA Q2 LDQ2 W PERM
     GIVPTR GIVCOL GIVNUM INDXP INDX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED8)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF13148 ':INT32)
                              (K-REF13149 ':INT32) (N-REF13150 ':INT32)
                              (QSIZ-REF13151 ':INT32)
                              (LDQ-REF13154 ':INT32)
                              (RHO-REF13156 ':FLOAT)
                              (CUTPNT-REF13157 ':INT32)
                              (LDQ2-REF13161 ':INT32)
                              (GIVPTR-REF13164 ':INT32)
                              (INFO-REF13169 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF13148 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13149 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13150 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF13151 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13154 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF13156 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF13157 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF13161 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF13164 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13169 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13152 D)
                                            (Q-REF13153 Q)
                                            (INDXQ-REF13155 INDXQ)
                                            (Z-REF13158 Z)
                                            (DLAMDA-REF13159 DLAMDA)
                                            (Q2-REF13160 Q2)
                                            (W-REF13162 W)
                                            (PERM-REF13163 PERM)
                                            (GIVCOL-REF13165 GIVCOL)
                                            (GIVNUM-REF13166 GIVNUM)
                                            (INDXP-REF13167 INDXP)
                                            (INDX-REF13168 INDX))
      (%%SLAED8 ICOMPQ-REF13148 K-REF13149 N-REF13150 QSIZ-REF13151
       D-REF13152 Q-REF13153 LDQ-REF13154 INDXQ-REF13155 RHO-REF13156
       CUTPNT-REF13157 Z-REF13158 DLAMDA-REF13159 Q2-REF13160
       LDQ2-REF13161 W-REF13162 PERM-REF13163 GIVPTR-REF13164
       GIVCOL-REF13165 GIVNUM-REF13166 INDXP-REF13167 INDX-REF13168
       INFO-REF13169))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASYF_RK "zlasyf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASYF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASYF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13171 ':INT32)
                              (NB-REF13172 ':INT32)
                              (KB-REF13173 ':INT32)
                              (LDA-REF13175 ':INT32)
                              (LDW-REF13179 ':INT32)
                              (INFO-REF13180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13171 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13172 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF13173 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13175 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF13179 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13180 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13174 A)
                                            (E-REF13176 E)
                                            (IPIV-REF13177 IPIV)
                                            (W-REF13178 W))
      (%%ZLASYF_RK UPLO N-REF13171 NB-REF13172 KB-REF13173 A-REF13174
       LDA-REF13175 E-REF13176 IPIV-REF13177 W-REF13178 LDW-REF13179
       INFO-REF13180))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEGVX "chegvx_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEGVX
    (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W Z LDZ
     WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGVX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF13181 ':INT32)
                              (N-REF13185 ':INT32)
                              (LDA-REF13187 ':INT32)
                              (LDB-REF13189 ':INT32)
                              (VL-REF13190 ':FLOAT)
                              (VU-REF13191 ':FLOAT)
                              (IL-REF13192 ':INT32)
                              (IU-REF13193 ':INT32)
                              (ABSTOL-REF13194 ':FLOAT)
                              (M-REF13195 ':INT32)
                              (LDZ-REF13198 ':INT32)
                              (LWORK-REF13200 ':INT32)
                              (INFO-REF13204 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF13181 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13185 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13187 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13189 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF13190 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF13191 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF13192 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF13193 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF13194 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13195 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13198 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13200 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13204 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13186 A)
                                            (B-REF13188 B)
                                            (W-REF13196 W)
                                            (Z-REF13197 Z)
                                            (WORK-REF13199 WORK)
                                            (RWORK-REF13201 RWORK)
                                            (IWORK-REF13202 IWORK)
                                            (IFAIL-REF13203 IFAIL))
      (%%CHEGVX ITYPE-REF13181 JOBZ RANGE UPLO N-REF13185 A-REF13186
       LDA-REF13187 B-REF13188 LDB-REF13189 VL-REF13190 VU-REF13191
       IL-REF13192 IU-REF13193 ABSTOL-REF13194 M-REF13195 W-REF13196
       Z-REF13197 LDZ-REF13198 WORK-REF13199 LWORK-REF13200
       RWORK-REF13201 IWORK-REF13202 IFAIL-REF13203 INFO-REF13204))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTF2_ROOK "csytf2_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTF2_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13206 ':INT32)
                              (LDA-REF13208 ':INT32)
                              (INFO-REF13210 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13206 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13208 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13210 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13207 A)
                                            (IPIV-REF13209 IPIV))
      (%%CSYTF2_ROOK UPLO N-REF13206 A-REF13207 LDA-REF13208
       IPIV-REF13209 INFO-REF13210))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZLA_SYRFSX_EXTENDED "zla_syrfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (COLEQU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_SYRFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF IPIV COLEQU C B LDB Y LDY
     BERR_OUT N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL
     RCOND ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF13211 ':INT32)
                              (N-REF13213 ':INT32)
                              (NRHS-REF13214 ':INT32)
                              (LDA-REF13216 ':INT32)
                              (LDAF-REF13218 ':INT32)
                              (COLEQU-REF13220 ':INT32)
                              (LDB-REF13223 ':INT32)
                              (LDY-REF13225 ':INT32)
                              (N_NORMS-REF13227 ':INT32)
                              (RCOND-REF13234 ':DOUBLE)
                              (ITHRESH-REF13235 ':INT32)
                              (RTHRESH-REF13236 ':DOUBLE)
                              (DZ_UB-REF13237 ':DOUBLE)
                              (IGNORE_CWISE-REF13238 ':INT32)
                              (INFO-REF13239 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF13211 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13213 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13214 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13216 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13218 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF13220 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13223 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF13225 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF13227 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13234 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF13235 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF13236 :DOUBLE) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF13237 :DOUBLE) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF13238 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13239 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13215 A)
                                            (AF-REF13217 AF)
                                            (IPIV-REF13219 IPIV)
                                            (C-REF13221 C)
                                            (B-REF13222 B)
                                            (Y-REF13224 Y)
                                            (BERR_OUT-REF13226
                                             BERR_OUT)
                                            (ERR_BNDS_NORM-REF13228
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF13229
                                             ERR_BNDS_COMP)
                                            (RES-REF13230 RES)
                                            (AYB-REF13231 AYB)
                                            (DY-REF13232 DY)
                                            (Y_TAIL-REF13233 Y_TAIL))
      (%%ZLA_SYRFSX_EXTENDED PREC_TYPE-REF13211 UPLO N-REF13213
       NRHS-REF13214 A-REF13215 LDA-REF13216 AF-REF13217 LDAF-REF13218
       IPIV-REF13219 COLEQU-REF13220 C-REF13221 B-REF13222 LDB-REF13223
       Y-REF13224 LDY-REF13225 BERR_OUT-REF13226 N_NORMS-REF13227
       ERR_BNDS_NORM-REF13228 ERR_BNDS_COMP-REF13229 RES-REF13230
       AYB-REF13231 DY-REF13232 Y_TAIL-REF13233 RCOND-REF13234
       ITHRESH-REF13235 RTHRESH-REF13236 DZ_UB-REF13237
       IGNORE_CWISE-REF13238 INFO-REF13239))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELS "zgels_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13241 ':INT32) (N-REF13242 ':INT32)
                              (NRHS-REF13243 ':INT32)
                              (LDA-REF13245 ':INT32)
                              (LDB-REF13247 ':INT32)
                              (LWORK-REF13249 ':INT32)
                              (INFO-REF13250 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13241 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13242 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13243 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13245 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13247 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13249 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13250 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13244 A)
                                            (B-REF13246 B)
                                            (WORK-REF13248 WORK))
      (%%ZGELS TRANS M-REF13241 N-REF13242 NRHS-REF13243 A-REF13244
       LDA-REF13245 B-REF13246 LDB-REF13247 WORK-REF13248
       LWORK-REF13249 INFO-REF13250))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMRZ "dormrz_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMRZ
    (SIDE TRANS M N K L A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMRZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13253 ':INT32) (N-REF13254 ':INT32)
                              (K-REF13255 ':INT32) (L-REF13256 ':INT32)
                              (LDA-REF13258 ':INT32)
                              (LDC-REF13261 ':INT32)
                              (LWORK-REF13263 ':INT32)
                              (INFO-REF13264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13253 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13254 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13255 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF13256 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13258 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13261 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13263 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13257 A)
                                            (TAU-REF13259 TAU)
                                            (C-REF13260 C)
                                            (WORK-REF13262 WORK))
      (%%DORMRZ SIDE TRANS M-REF13253 N-REF13254 K-REF13255 L-REF13256
       A-REF13257 LDA-REF13258 TAU-REF13259 C-REF13260 LDC-REF13261
       WORK-REF13262 LWORK-REF13263 INFO-REF13264))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEBD2 "cgebd2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEBD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13265 ':INT32) (N-REF13266 ':INT32)
                              (LDA-REF13268 ':INT32)
                              (INFO-REF13274 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13265 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13268 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13274 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13267 A)
                                            (D-REF13269 D)
                                            (E-REF13270 E)
                                            (TAUQ-REF13271 TAUQ)
                                            (TAUP-REF13272 TAUP)
                                            (WORK-REF13273 WORK))
      (%%CGEBD2 M-REF13265 N-REF13266 A-REF13267 LDA-REF13268
       D-REF13269 E-REF13270 TAUQ-REF13271 TAUP-REF13272 WORK-REF13273
       INFO-REF13274))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPQRT2 "ctpqrt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPQRT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13275 ':INT32) (N-REF13276 ':INT32)
                              (L-REF13277 ':INT32)
                              (LDA-REF13279 ':INT32)
                              (LDB-REF13281 ':INT32)
                              (LDT-REF13283 ':INT32)
                              (INFO-REF13284 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13275 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF13277 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13279 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13281 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13283 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13284 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13278 A)
                                            (B-REF13280 B)
                                            (T-REF13282 T))
      (%%CTPQRT2 M-REF13275 N-REF13276 L-REF13277 A-REF13278
       LDA-REF13279 B-REF13280 LDB-REF13281 T-REF13282 LDT-REF13283
       INFO-REF13284))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRS "chetrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13286 ':INT32)
                              (NRHS-REF13287 ':INT32)
                              (LDA-REF13289 ':INT32)
                              (LDB-REF13292 ':INT32)
                              (INFO-REF13293 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13286 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13287 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13289 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13292 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13293 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13288 A)
                                            (IPIV-REF13290 IPIV)
                                            (B-REF13291 B))
      (%%CHETRS UPLO N-REF13286 NRHS-REF13287 A-REF13288 LDA-REF13289
       IPIV-REF13290 B-REF13291 LDB-REF13292 INFO-REF13293))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASCL "zlascl_")
  ((TYPE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (CFROM :FOREIGN-ADDRESS)
   (CTO :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASCL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CFROM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CTO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF13295 ':INT32)
                              (KU-REF13296 ':INT32)
                              (CFROM-REF13297 ':DOUBLE)
                              (CTO-REF13298 ':DOUBLE)
                              (M-REF13299 ':INT32) (N-REF13300 ':INT32)
                              (LDA-REF13302 ':INT32)
                              (INFO-REF13303 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13295 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13296 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF13297 :DOUBLE) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF13298 :DOUBLE) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13299 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13300 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13302 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13303 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13301 A))
      (%%ZLASCL TYPE KL-REF13295 KU-REF13296 CFROM-REF13297
       CTO-REF13298 M-REF13299 N-REF13300 A-REF13301 LDA-REF13302
       INFO-REF13303))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEDC "dstedc_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEDC
    (COMPZ N D E Z LDZ WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEDC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13305 ':INT32)
                              (LDZ-REF13309 ':INT32)
                              (LWORK-REF13311 ':INT32)
                              (LIWORK-REF13313 ':INT32)
                              (INFO-REF13314 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13305 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13309 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13311 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF13313 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13314 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13306 D)
                                            (E-REF13307 E)
                                            (Z-REF13308 Z)
                                            (WORK-REF13310 WORK)
                                            (IWORK-REF13312 IWORK))
      (%%DSTEDC COMPZ N-REF13305 D-REF13306 E-REF13307 Z-REF13308
       LDZ-REF13309 WORK-REF13310 LWORK-REF13311 IWORK-REF13312
       LIWORK-REF13313 INFO-REF13314))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLATDF "dlatdf_")
  ((IJOB :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (RHS :FOREIGN-ADDRESS)
   (RDSUM :FOREIGN-ADDRESS) (RDSCAL :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (JPIV :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLATDF (IJOB N Z LDZ RHS RDSUM RDSCAL IPIV JPIV)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATDF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RHS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPIV))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF13315 ':INT32)
                              (N-REF13316 ':INT32)
                              (LDZ-REF13318 ':INT32)
                              (RDSUM-REF13320 ':DOUBLE)
                              (RDSCAL-REF13321 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF13315 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13316 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13318 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF13320 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF13321 :DOUBLE) RDSCAL)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF13317 Z)
                                            (RHS-REF13319 RHS)
                                            (IPIV-REF13322 IPIV)
                                            (JPIV-REF13323 JPIV))
      (%%DLATDF IJOB-REF13315 N-REF13316 Z-REF13317 LDZ-REF13318
       RHS-REF13319 RDSUM-REF13320 RDSCAL-REF13321 IPIV-REF13322
       JPIV-REF13323))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZCGESV "zcgesv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (SWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (ITER :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZCGESV
    (N NRHS A LDA IPIV B LDB X LDX WORK SWORK RWORK ITER INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZCGESV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    SWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13324 ':INT32)
                              (NRHS-REF13325 ':INT32)
                              (LDA-REF13327 ':INT32)
                              (LDB-REF13330 ':INT32)
                              (LDX-REF13332 ':INT32)
                              (ITER-REF13336 ':INT32)
                              (INFO-REF13337 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13324 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13325 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13327 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13330 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13332 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF13336 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13337 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13326 A)
                                            (IPIV-REF13328 IPIV)
                                            (B-REF13329 B)
                                            (X-REF13331 X)
                                            (WORK-REF13333 WORK)
                                            (SWORK-REF13334 SWORK)
                                            (RWORK-REF13335 RWORK))
      (%%ZCGESV N-REF13324 NRHS-REF13325 A-REF13326 LDA-REF13327
       IPIV-REF13328 B-REF13329 LDB-REF13330 X-REF13331 LDX-REF13332
       WORK-REF13333 SWORK-REF13334 RWORK-REF13335 ITER-REF13336
       INFO-REF13337))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANEG "dlaneg_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (LLD :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANEG (N D LLD SIGMA PIVMIN R)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANEG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LLD)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13338 ':INT32)
                              (SIGMA-REF13341 ':DOUBLE)
                              (PIVMIN-REF13342 ':DOUBLE)
                              (R-REF13343 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF13341 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13342 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF13343 :INT32) R)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13339 D)
                                            (LLD-REF13340 LLD))
      (%%DLANEG N-REF13338 D-REF13339 LLD-REF13340 SIGMA-REF13341
       PIVMIN-REF13342 R-REF13343))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQR0 "dlaqr0_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS)
   (WI :FOREIGN-ADDRESS) (ILOZ :FOREIGN-ADDRESS)
   (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQR0
    (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF13344 ':INT32)
                              (WANTZ-REF13345 ':INT32)
                              (N-REF13346 ':INT32)
                              (ILO-REF13347 ':INT32)
                              (IHI-REF13348 ':INT32)
                              (LDH-REF13350 ':INT32)
                              (ILOZ-REF13353 ':INT32)
                              (IHIZ-REF13354 ':INT32)
                              (LDZ-REF13356 ':INT32)
                              (LWORK-REF13358 ':INT32)
                              (INFO-REF13359 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF13344 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13345 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13346 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13347 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13348 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF13350 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF13353 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF13354 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13356 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13358 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13359 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF13349 H)
                                            (WR-REF13351 WR)
                                            (WI-REF13352 WI)
                                            (Z-REF13355 Z)
                                            (WORK-REF13357 WORK))
      (%%DLAQR0 WANTT-REF13344 WANTZ-REF13345 N-REF13346 ILO-REF13347
       IHI-REF13348 H-REF13349 LDH-REF13350 WR-REF13351 WI-REF13352
       ILOZ-REF13353 IHIZ-REF13354 Z-REF13355 LDZ-REF13356
       WORK-REF13357 LWORK-REF13358 INFO-REF13359))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CSYTRF_AA_2STAGE "csytrf_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TB :FOREIGN-ADDRESS)
   (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRF_AA_2STAGE
    (UPLO N A LDA TB LTB IPIV IPIV2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRF_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13361 ':INT32)
                              (LDA-REF13363 ':INT32)
                              (LTB-REF13365 ':INT32)
                              (LWORK-REF13369 ':INT32)
                              (INFO-REF13370 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13361 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13363 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF13365 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13369 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13370 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13362 A)
                                            (TB-REF13364 TB)
                                            (IPIV-REF13366 IPIV)
                                            (IPIV2-REF13367 IPIV2)
                                            (WORK-REF13368 WORK))
      (%%CSYTRF_AA_2STAGE UPLO N-REF13361 A-REF13362 LDA-REF13363
       TB-REF13364 LTB-REF13365 IPIV-REF13366 IPIV2-REF13367
       WORK-REF13368 LWORK-REF13369 INFO-REF13370))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBTF2 "spbtf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBTF2 (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13372 ':INT32)
                              (KD-REF13373 ':INT32)
                              (LDAB-REF13375 ':INT32)
                              (INFO-REF13376 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13372 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13373 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13375 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13376 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13374 AB))
      (%%SPBTF2 UPLO N-REF13372 KD-REF13373 AB-REF13374 LDAB-REF13375
       INFO-REF13376))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRF "slarrf_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (LD :FOREIGN-ADDRESS) (CLSTRT :FOREIGN-ADDRESS)
   (CLEND :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WGAP :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (SPDIAM :FOREIGN-ADDRESS) (CLGAPL :FOREIGN-ADDRESS)
   (CLGAPR :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (DPLUS :FOREIGN-ADDRESS)
   (LPLUS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRF
    (N D L LD CLSTRT CLEND W WGAP WERR SPDIAM CLGAPL CLGAPR PIVMIN
     SIGMA DPLUS LPLUS WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLSTRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CLEND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WERR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CLGAPL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CLGAPR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DPLUS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LPLUS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13377 ':INT32)
                              (CLSTRT-REF13381 ':INT32)
                              (CLEND-REF13382 ':INT32)
                              (SPDIAM-REF13386 ':FLOAT)
                              (CLGAPL-REF13387 ':FLOAT)
                              (CLGAPR-REF13388 ':FLOAT)
                              (PIVMIN-REF13389 ':FLOAT)
                              (SIGMA-REF13390 ':FLOAT)
                              (INFO-REF13394 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLSTRT-REF13381 :INT32) CLSTRT)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLEND-REF13382 :INT32) CLEND)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF13386 :FLOAT) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPL-REF13387 :FLOAT) CLGAPL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CLGAPR-REF13388 :FLOAT) CLGAPR)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13389 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF13390 :FLOAT) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13394 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13378 D)
                                            (L-REF13379 L)
                                            (LD-REF13380 LD)
                                            (W-REF13383 W)
                                            (WGAP-REF13384 WGAP)
                                            (WERR-REF13385 WERR)
                                            (DPLUS-REF13391 DPLUS)
                                            (LPLUS-REF13392 LPLUS)
                                            (WORK-REF13393 WORK))
      (%%SLARRF N-REF13377 D-REF13378 L-REF13379 LD-REF13380
       CLSTRT-REF13381 CLEND-REF13382 W-REF13383 WGAP-REF13384
       WERR-REF13385 SPDIAM-REF13386 CLGAPL-REF13387 CLGAPR-REF13388
       PIVMIN-REF13389 SIGMA-REF13390 DPLUS-REF13391 LPLUS-REF13392
       WORK-REF13393 INFO-REF13394))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASWLQ "slaswlq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASWLQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13395 ':INT32) (N-REF13396 ':INT32)
                              (MB-REF13397 ':INT32)
                              (NB-REF13398 ':INT32)
                              (LDA-REF13400 ':INT32)
                              (LDT-REF13402 ':INT32)
                              (LWORK-REF13404 ':INT32)
                              (INFO-REF13405 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13395 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13396 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13397 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13398 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13400 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13402 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13404 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13405 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13399 A)
                                            (T-REF13401 T)
                                            (WORK-REF13403 WORK))
      (%%SLASWLQ M-REF13395 N-REF13396 MB-REF13397 NB-REF13398
       A-REF13399 LDA-REF13400 T-REF13401 LDT-REF13402 WORK-REF13403
       LWORK-REF13404 INFO-REF13405))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPBSTF "zpbstf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPBSTF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBSTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13407 ':INT32)
                              (KD-REF13408 ':INT32)
                              (LDAB-REF13410 ':INT32)
                              (INFO-REF13411 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13407 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13408 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13410 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13411 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13409 AB))
      (%%ZPBSTF UPLO N-REF13407 KD-REF13408 AB-REF13409 LDAB-REF13410
       INFO-REF13411))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQLF "sgeqlf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQLF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13412 ':INT32) (N-REF13413 ':INT32)
                              (LDA-REF13415 ':INT32)
                              (LWORK-REF13418 ':INT32)
                              (INFO-REF13419 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13412 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13413 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13415 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13418 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13419 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13414 A)
                                            (TAU-REF13416 TAU)
                                            (WORK-REF13417 WORK))
      (%%SGEQLF M-REF13412 N-REF13413 A-REF13414 LDA-REF13415
       TAU-REF13416 WORK-REF13417 LWORK-REF13418 INFO-REF13419))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRD_HE2HB "chetrd_he2hb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRD_HE2HB
    (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRD_HE2HB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13421 ':INT32)
                              (KD-REF13422 ':INT32)
                              (LDA-REF13424 ':INT32)
                              (LDAB-REF13426 ':INT32)
                              (LWORK-REF13429 ':INT32)
                              (INFO-REF13430 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13421 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13422 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13424 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13426 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13429 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13430 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13423 A)
                                            (AB-REF13425 AB)
                                            (TAU-REF13427 TAU)
                                            (WORK-REF13428 WORK))
      (%%CHETRD_HE2HB UPLO N-REF13421 KD-REF13422 A-REF13423
       LDA-REF13424 AB-REF13425 LDAB-REF13426 TAU-REF13427
       WORK-REF13428 LWORK-REF13429 INFO-REF13430))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEEVX_2STAGE "zheevx_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEEVX_2STAGE
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK LWORK
     RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVX_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13434 ':INT32)
                              (LDA-REF13436 ':INT32)
                              (VL-REF13437 ':DOUBLE)
                              (VU-REF13438 ':DOUBLE)
                              (IL-REF13439 ':INT32)
                              (IU-REF13440 ':INT32)
                              (ABSTOL-REF13441 ':DOUBLE)
                              (M-REF13442 ':INT32)
                              (LDZ-REF13445 ':INT32)
                              (LWORK-REF13447 ':INT32)
                              (INFO-REF13451 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13434 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13436 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF13437 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF13438 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF13439 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF13440 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF13441 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13442 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13445 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13447 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13451 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13435 A)
                                            (W-REF13443 W)
                                            (Z-REF13444 Z)
                                            (WORK-REF13446 WORK)
                                            (RWORK-REF13448 RWORK)
                                            (IWORK-REF13449 IWORK)
                                            (IFAIL-REF13450 IFAIL))
      (%%ZHEEVX_2STAGE JOBZ RANGE UPLO N-REF13434 A-REF13435
       LDA-REF13436 VL-REF13437 VU-REF13438 IL-REF13439 IU-REF13440
       ABSTOL-REF13441 M-REF13442 W-REF13443 Z-REF13444 LDZ-REF13445
       WORK-REF13446 LWORK-REF13447 RWORK-REF13448 IWORK-REF13449
       IFAIL-REF13450 INFO-REF13451))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYEV "ssyev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYEV (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13454 ':INT32)
                              (LDA-REF13456 ':INT32)
                              (LWORK-REF13459 ':INT32)
                              (INFO-REF13460 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13454 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13456 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13459 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13460 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13455 A)
                                            (W-REF13457 W)
                                            (WORK-REF13458 WORK))
      (%%SSYEV JOBZ UPLO N-REF13454 A-REF13455 LDA-REF13456 W-REF13457
       WORK-REF13458 LWORK-REF13459 INFO-REF13460))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANHB "clanhb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANHB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13463 ':INT32) (K-REF13464 ':INT32)
                              (LDAB-REF13466 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13463 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13464 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13466 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13465 AB)
                                            (WORK-REF13467 WORK))
      (%%CLANHB NORM UPLO N-REF13463 K-REF13464 AB-REF13465
       LDAB-REF13466 WORK-REF13467))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARZ "zlarz_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (INCV :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARZ (SIDE M N L V INCV TAU C LDC WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCV)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13469 ':INT32) (N-REF13470 ':INT32)
                              (L-REF13471 ':INT32)
                              (INCV-REF13473 ':INT32)
                              (TAU-REF13474
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF13476 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13469 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13470 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF13471 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCV-REF13473 :INT32) INCV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF13474
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13476 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13472 V)
                                            (C-REF13475 C)
                                            (WORK-REF13477 WORK))
      (%%ZLARZ SIDE M-REF13469 N-REF13470 L-REF13471 V-REF13472
       INCV-REF13473 TAU-REF13474 C-REF13475 LDC-REF13476
       WORK-REF13477))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_GBRCOND_X "zla_gbrcond_x_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GBRCOND_X
    (TRANS N KL KU AB LDAB AFB LDAFB IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBRCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13479 ':INT32)
                              (KL-REF13480 ':INT32)
                              (KU-REF13481 ':INT32)
                              (LDAB-REF13483 ':INT32)
                              (LDAFB-REF13485 ':INT32)
                              (INFO-REF13488 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13479 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13480 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13481 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13483 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF13485 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13488 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13482 AB)
                                            (AFB-REF13484 AFB)
                                            (IPIV-REF13486 IPIV)
                                            (X-REF13487 X)
                                            (WORK-REF13489 WORK)
                                            (RWORK-REF13490 RWORK))
      (%%ZLA_GBRCOND_X TRANS N-REF13479 KL-REF13480 KU-REF13481
       AB-REF13482 LDAB-REF13483 AFB-REF13484 LDAFB-REF13485
       IPIV-REF13486 X-REF13487 INFO-REF13488 WORK-REF13489
       RWORK-REF13490))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLACN2 "clacn2_")
  ((N :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (EST :FOREIGN-ADDRESS) (KASE :FOREIGN-ADDRESS)
   (ISAVE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLACN2 (N V X EST KASE ISAVE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACN2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT EST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KASE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISAVE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13491 ':INT32)
                              (EST-REF13494 ':FLOAT)
                              (KASE-REF13495 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13491 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF EST-REF13494 :FLOAT) EST)
    (COMMON-LISP:SETF (CFFI:MEM-REF KASE-REF13495 :INT32) KASE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13492 V)
                                            (X-REF13493 X)
                                            (ISAVE-REF13496 ISAVE))
      (%%CLACN2 N-REF13491 V-REF13492 X-REF13493 EST-REF13494
       KASE-REF13495 ISAVE-REF13496))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQGB "slaqgb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQGB
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQGB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13497 ':INT32) (N-REF13498 ':INT32)
                              (KL-REF13499 ':INT32)
                              (KU-REF13500 ':INT32)
                              (LDAB-REF13502 ':INT32)
                              (ROWCND-REF13505 ':FLOAT)
                              (COLCND-REF13506 ':FLOAT)
                              (AMAX-REF13507 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13497 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13498 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF13499 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF13500 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13502 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF13505 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF13506 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13507 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13501 AB)
                                            (R-REF13503 R)
                                            (C-REF13504 C))
      (%%SLAQGB M-REF13497 N-REF13498 KL-REF13499 KU-REF13500
       AB-REF13501 LDAB-REF13502 R-REF13503 C-REF13504 ROWCND-REF13505
       COLCND-REF13506 AMAX-REF13507 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRI_ROOK "zhetri_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRI_ROOK (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13510 ':INT32)
                              (LDA-REF13512 ':INT32)
                              (INFO-REF13515 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13512 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13515 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13511 A)
                                            (IPIV-REF13513 IPIV)
                                            (WORK-REF13514 WORK))
      (%%ZHETRI_ROOK UPLO N-REF13510 A-REF13511 LDA-REF13512
       IPIV-REF13513 WORK-REF13514 INFO-REF13515))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGESDD "zgesdd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGESDD
    (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESDD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13517 ':INT32) (N-REF13518 ':INT32)
                              (LDA-REF13520 ':INT32)
                              (LDU-REF13523 ':INT32)
                              (LDVT-REF13525 ':INT32)
                              (LWORK-REF13527 ':INT32)
                              (INFO-REF13530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13517 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13518 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13520 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF13523 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF13525 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13527 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13530 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13519 A)
                                            (S-REF13521 S)
                                            (U-REF13522 U)
                                            (VT-REF13524 VT)
                                            (WORK-REF13526 WORK)
                                            (RWORK-REF13528 RWORK)
                                            (IWORK-REF13529 IWORK))
      (%%ZGESDD JOBZ M-REF13517 N-REF13518 A-REF13519 LDA-REF13520
       S-REF13521 U-REF13522 LDU-REF13523 VT-REF13524 LDVT-REF13525
       WORK-REF13526 LWORK-REF13527 RWORK-REF13528 IWORK-REF13529
       INFO-REF13530))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQP2 "claqp2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (OFFSET :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (VN1 :FOREIGN-ADDRESS) (VN2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQP2 (M N OFFSET A LDA JPVT TAU VN1 VN2 WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQP2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VN1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VN2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13531 ':INT32) (N-REF13532 ':INT32)
                              (OFFSET-REF13533 ':INT32)
                              (LDA-REF13535 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13531 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13532 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF13533 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13535 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13534 A)
                                            (JPVT-REF13536 JPVT)
                                            (TAU-REF13537 TAU)
                                            (VN1-REF13538 VN1)
                                            (VN2-REF13539 VN2)
                                            (WORK-REF13540 WORK))
      (%%CLAQP2 M-REF13531 N-REF13532 OFFSET-REF13533 A-REF13534
       LDA-REF13535 JPVT-REF13536 TAU-REF13537 VN1-REF13538
       VN2-REF13539 WORK-REF13540))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMLQ "sormlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMLQ
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13543 ':INT32) (N-REF13544 ':INT32)
                              (K-REF13545 ':INT32)
                              (LDA-REF13547 ':INT32)
                              (LDC-REF13550 ':INT32)
                              (LWORK-REF13552 ':INT32)
                              (INFO-REF13553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13543 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13544 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13545 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13547 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13550 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13552 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13546 A)
                                            (TAU-REF13548 TAU)
                                            (C-REF13549 C)
                                            (WORK-REF13551 WORK))
      (%%SORMLQ SIDE TRANS M-REF13543 N-REF13544 K-REF13545 A-REF13546
       LDA-REF13547 TAU-REF13548 C-REF13549 LDC-REF13550 WORK-REF13551
       LWORK-REF13552 INFO-REF13553))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMQR "dormqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMQR
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13556 ':INT32) (N-REF13557 ':INT32)
                              (K-REF13558 ':INT32)
                              (LDA-REF13560 ':INT32)
                              (LDC-REF13563 ':INT32)
                              (LWORK-REF13565 ':INT32)
                              (INFO-REF13566 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13556 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13557 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13558 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13560 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13563 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13565 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13566 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13559 A)
                                            (TAU-REF13561 TAU)
                                            (C-REF13562 C)
                                            (WORK-REF13564 WORK))
      (%%DORMQR SIDE TRANS M-REF13556 N-REF13557 K-REF13558 A-REF13559
       LDA-REF13560 TAU-REF13561 C-REF13562 LDC-REF13563 WORK-REF13564
       LWORK-REF13565 INFO-REF13566))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLATSQR "clatsqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATSQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13567 ':INT32) (N-REF13568 ':INT32)
                              (MB-REF13569 ':INT32)
                              (NB-REF13570 ':INT32)
                              (LDA-REF13572 ':INT32)
                              (LDT-REF13574 ':INT32)
                              (LWORK-REF13576 ':INT32)
                              (INFO-REF13577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13567 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13568 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13569 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13570 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13572 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13574 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13576 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13577 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13571 A)
                                            (T-REF13573 T)
                                            (WORK-REF13575 WORK))
      (%%CLATSQR M-REF13567 N-REF13568 MB-REF13569 NB-REF13570
       A-REF13571 LDA-REF13572 T-REF13573 LDT-REF13574 WORK-REF13575
       LWORK-REF13576 INFO-REF13577))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLATBS "clatbs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (CNORM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLATBS
    (UPLO TRANS DIAG NORMIN N KD AB LDAB X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATBS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13582 ':INT32)
                              (KD-REF13583 ':INT32)
                              (LDAB-REF13585 ':INT32)
                              (SCALE-REF13587 ':FLOAT)
                              (INFO-REF13589 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13582 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13583 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13585 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF13587 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13589 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13584 AB)
                                            (X-REF13586 X)
                                            (CNORM-REF13588 CNORM))
      (%%CLATBS UPLO TRANS DIAG NORMIN N-REF13582 KD-REF13583
       AB-REF13584 LDAB-REF13585 X-REF13586 SCALE-REF13587
       CNORM-REF13588 INFO-REF13589))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_SYRCOND_X "cla_syrcond_x_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_SYRCOND_X
    (UPLO N A LDA AF LDAF IPIV X INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYRCOND_X)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13591 ':INT32)
                              (LDA-REF13593 ':INT32)
                              (LDAF-REF13595 ':INT32)
                              (INFO-REF13598 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13591 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13593 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF13595 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13598 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13592 A)
                                            (AF-REF13594 AF)
                                            (IPIV-REF13596 IPIV)
                                            (X-REF13597 X)
                                            (WORK-REF13599 WORK)
                                            (RWORK-REF13600 RWORK))
      (%%CLA_SYRCOND_X UPLO N-REF13591 A-REF13592 LDA-REF13593
       AF-REF13594 LDAF-REF13595 IPIV-REF13596 X-REF13597 INFO-REF13598
       WORK-REF13599 RWORK-REF13600))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPOTRI "dpotri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPOTRI (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13602 ':INT32)
                              (LDA-REF13604 ':INT32)
                              (INFO-REF13605 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13602 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13604 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13605 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13603 A))
      (%%DPOTRI UPLO N-REF13602 A-REF13603 LDA-REF13604
       INFO-REF13605))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQRT2 "dgeqrt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13606 ':INT32) (N-REF13607 ':INT32)
                              (LDA-REF13609 ':INT32)
                              (LDT-REF13611 ':INT32)
                              (INFO-REF13612 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13606 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13607 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13609 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13611 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13612 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13608 A)
                                            (T-REF13610 T))
      (%%DGEQRT2 M-REF13606 N-REF13607 A-REF13608 LDA-REF13609
       T-REF13610 LDT-REF13611 INFO-REF13612))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELQ "zgelq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (TSIZE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13613 ':INT32) (N-REF13614 ':INT32)
                              (LDA-REF13616 ':INT32)
                              (TSIZE-REF13618 ':INT32)
                              (LWORK-REF13620 ':INT32)
                              (INFO-REF13621 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13613 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13614 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13616 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF13618 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13620 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13621 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13615 A)
                                            (T-REF13617 T)
                                            (WORK-REF13619 WORK))
      (%%ZGELQ M-REF13613 N-REF13614 A-REF13615 LDA-REF13616 T-REF13617
       TSIZE-REF13618 WORK-REF13619 LWORK-REF13620 INFO-REF13621))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARFGP "clarfgp_")
  ((N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARFGP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13622 ':INT32)
                              (ALPHA-REF13623
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF13625 ':INT32)
                              (TAU-REF13626
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13622 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF13623
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13625 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF13626
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13624 X))
      (%%CLARFGP N-REF13622 ALPHA-REF13623 X-REF13624 INCX-REF13625
       TAU-REF13626))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZDRSCL "zdrscl_")
  ((N :FOREIGN-ADDRESS) (SA :FOREIGN-ADDRESS) (SX :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZDRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDRSCL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    SX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13627 ':INT32)
                              (SA-REF13628 ':DOUBLE)
                              (INCX-REF13630 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13627 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF13628 :DOUBLE) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13630 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF13629 SX))
      (%%ZDRSCL N-REF13627 SA-REF13628 SX-REF13629 INCX-REF13630))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSBEVX_2STAGE "dsbevx_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSBEVX_2STAGE
    (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z LDZ
     WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBEVX_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13634 ':INT32)
                              (KD-REF13635 ':INT32)
                              (LDAB-REF13637 ':INT32)
                              (LDQ-REF13639 ':INT32)
                              (VL-REF13640 ':DOUBLE)
                              (VU-REF13641 ':DOUBLE)
                              (IL-REF13642 ':INT32)
                              (IU-REF13643 ':INT32)
                              (ABSTOL-REF13644 ':DOUBLE)
                              (M-REF13645 ':INT32)
                              (LDZ-REF13648 ':INT32)
                              (LWORK-REF13650 ':INT32)
                              (INFO-REF13653 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13634 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13635 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13637 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13639 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF13640 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF13641 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF13642 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF13643 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF13644 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13645 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13648 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13650 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13653 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13636 AB)
                                            (Q-REF13638 Q)
                                            (W-REF13646 W)
                                            (Z-REF13647 Z)
                                            (WORK-REF13649 WORK)
                                            (IWORK-REF13651 IWORK)
                                            (IFAIL-REF13652 IFAIL))
      (%%DSBEVX_2STAGE JOBZ RANGE UPLO N-REF13634 KD-REF13635
       AB-REF13636 LDAB-REF13637 Q-REF13638 LDQ-REF13639 VL-REF13640
       VU-REF13641 IL-REF13642 IU-REF13643 ABSTOL-REF13644 M-REF13645
       W-REF13646 Z-REF13647 LDZ-REF13648 WORK-REF13649 LWORK-REF13650
       IWORK-REF13651 IFAIL-REF13652 INFO-REF13653))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTBCON "ctbcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTBCON
    (NORM UPLO DIAG N KD AB LDAB RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13657 ':INT32)
                              (KD-REF13658 ':INT32)
                              (LDAB-REF13660 ':INT32)
                              (RCOND-REF13661 ':FLOAT)
                              (INFO-REF13664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13657 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13658 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13660 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13661 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13659 AB)
                                            (WORK-REF13662 WORK)
                                            (RWORK-REF13663 RWORK))
      (%%CTBCON NORM UPLO DIAG N-REF13657 KD-REF13658 AB-REF13659
       LDAB-REF13660 RCOND-REF13661 WORK-REF13662 RWORK-REF13663
       INFO-REF13664))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRS2 "zhetrs2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13666 ':INT32)
                              (NRHS-REF13667 ':INT32)
                              (LDA-REF13669 ':INT32)
                              (LDB-REF13672 ':INT32)
                              (INFO-REF13674 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13666 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13667 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13669 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13672 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13674 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13668 A)
                                            (IPIV-REF13670 IPIV)
                                            (B-REF13671 B)
                                            (WORK-REF13673 WORK))
      (%%ZHETRS2 UPLO N-REF13666 NRHS-REF13667 A-REF13668 LDA-REF13669
       IPIV-REF13670 B-REF13671 LDB-REF13672 WORK-REF13673
       INFO-REF13674))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYCON "csycon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYCON (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13676 ':INT32)
                              (LDA-REF13678 ':INT32)
                              (ANORM-REF13680 ':FLOAT)
                              (RCOND-REF13681 ':FLOAT)
                              (INFO-REF13683 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13676 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13678 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF13680 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13681 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13683 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13677 A)
                                            (IPIV-REF13679 IPIV)
                                            (WORK-REF13682 WORK))
      (%%CSYCON UPLO N-REF13676 A-REF13677 LDA-REF13678 IPIV-REF13679
       ANORM-REF13680 RCOND-REF13681 WORK-REF13682 INFO-REF13683))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPOTRF2 "spotrf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPOTRF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13685 ':INT32)
                              (LDA-REF13687 ':INT32)
                              (INFO-REF13688 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13685 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13687 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13688 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13686 A))
      (%%SPOTRF2 UPLO N-REF13685 A-REF13686 LDA-REF13687
       INFO-REF13688))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAR1V "zlar1v_")
  ((N :FOREIGN-ADDRESS) (B1 :FOREIGN-ADDRESS) (BN :FOREIGN-ADDRESS)
   (LAMBDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (LD :FOREIGN-ADDRESS) (LLD :FOREIGN-ADDRESS)
   (PIVMIN :FOREIGN-ADDRESS) (GAPTOL :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (WANTNC :FOREIGN-ADDRESS)
   (NEGCNT :FOREIGN-ADDRESS) (ZTZ :FOREIGN-ADDRESS)
   (MINGMA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (NRMINV :FOREIGN-ADDRESS)
   (RESID :FOREIGN-ADDRESS) (RQCORR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAR1V
    (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ MINGMA
     R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAR1V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LLD)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAPTOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ZTZ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINGMA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT NRMINV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RESID)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RQCORR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13689 ':INT32)
                              (B1-REF13690 ':INT32)
                              (BN-REF13691 ':INT32)
                              (LAMBDA-REF13692 ':DOUBLE)
                              (PIVMIN-REF13697 ':DOUBLE)
                              (GAPTOL-REF13698 ':DOUBLE)
                              (WANTNC-REF13700 ':INT32)
                              (NEGCNT-REF13701 ':INT32)
                              (ZTZ-REF13702 ':DOUBLE)
                              (MINGMA-REF13703 ':DOUBLE)
                              (R-REF13704 ':INT32)
                              (NRMINV-REF13706 ':DOUBLE)
                              (RESID-REF13707 ':DOUBLE)
                              (RQCORR-REF13708 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13689 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF13690 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF13691 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF13692 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF13697 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF13698 :DOUBLE) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF13700 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF13701 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF13702 :DOUBLE) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF13703 :DOUBLE) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF13704 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF13706 :DOUBLE) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF13707 :DOUBLE) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF13708 :DOUBLE) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13693 D)
                                            (L-REF13694 L)
                                            (LD-REF13695 LD)
                                            (LLD-REF13696 LLD)
                                            (Z-REF13699 Z)
                                            (ISUPPZ-REF13705 ISUPPZ)
                                            (WORK-REF13709 WORK))
      (%%ZLAR1V N-REF13689 B1-REF13690 BN-REF13691 LAMBDA-REF13692
       D-REF13693 L-REF13694 LD-REF13695 LLD-REF13696 PIVMIN-REF13697
       GAPTOL-REF13698 Z-REF13699 WANTNC-REF13700 NEGCNT-REF13701
       ZTZ-REF13702 MINGMA-REF13703 R-REF13704 ISUPPZ-REF13705
       NRMINV-REF13706 RESID-REF13707 RQCORR-REF13708 WORK-REF13709))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBTRS "spbtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBTRS (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13711 ':INT32)
                              (KD-REF13712 ':INT32)
                              (NRHS-REF13713 ':INT32)
                              (LDAB-REF13715 ':INT32)
                              (LDB-REF13717 ':INT32)
                              (INFO-REF13718 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13711 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13712 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13713 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13715 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13717 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13718 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13714 AB)
                                            (B-REF13716 B))
      (%%SPBTRS UPLO N-REF13711 KD-REF13712 NRHS-REF13713 AB-REF13714
       LDAB-REF13715 B-REF13716 LDB-REF13717 INFO-REF13718))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBEV_2STAGE "chbev_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBEV_2STAGE
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEV_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13721 ':INT32)
                              (KD-REF13722 ':INT32)
                              (LDAB-REF13724 ':INT32)
                              (LDZ-REF13727 ':INT32)
                              (LWORK-REF13729 ':INT32)
                              (INFO-REF13731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13721 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13722 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13724 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13727 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13729 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13731 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13723 AB)
                                            (W-REF13725 W)
                                            (Z-REF13726 Z)
                                            (WORK-REF13728 WORK)
                                            (RWORK-REF13730 RWORK))
      (%%CHBEV_2STAGE JOBZ UPLO N-REF13721 KD-REF13722 AB-REF13723
       LDAB-REF13724 W-REF13725 Z-REF13726 LDZ-REF13727 WORK-REF13728
       LWORK-REF13729 RWORK-REF13730 INFO-REF13731))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAISNAN "slaisnan_")
  ((SIN1 :FOREIGN-ADDRESS) (SIN2 :FOREIGN-ADDRESS)) :RETURNING
  (:INT (COMMON-LISP:SIGNED-BYTE 32)) :RELEASE-HEAP :NEVER :ALLOW-GC
  :NEVER)

(COMMON-LISP:DEFUN %SLAISNAN (SIN1 SIN2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAISNAN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SIN2))
  (CFFI:WITH-FOREIGN-OBJECTS ((SIN1-REF13732 ':FLOAT)
                              (SIN2-REF13733 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN1-REF13732 :FLOAT) SIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIN2-REF13733 :FLOAT) SIN2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAISNAN SIN1-REF13732 SIN2-REF13733))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTFTRI "ztftri_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTFTRI (TRANSR UPLO DIAG N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTFTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13737 ':INT32)
                              (INFO-REF13739 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13737 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13739 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13738 A))
      (%%ZTFTRI TRANSR UPLO DIAG N-REF13737 A-REF13738 INFO-REF13739))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANHS "slanhs_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANHS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13741 ':INT32)
                              (LDA-REF13743 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13741 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13743 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13742 A)
                                            (WORK-REF13744 WORK))
      (%%SLANHS NORM N-REF13741 A-REF13742 LDA-REF13743
       WORK-REF13744))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SCSUM1 "scsum1_")
  ((N :FOREIGN-ADDRESS) (CX :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SCSUM1 (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCSUM1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13745 ':INT32)
                              (INCX-REF13747 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13745 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF13747 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF13746 CX))
      (%%SCSUM1 N-REF13745 CX-REF13746 INCX-REF13747))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEMLQT "cgemlqt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEMLQT
    (SIDE TRANS M N K MB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMLQT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13750 ':INT32) (N-REF13751 ':INT32)
                              (K-REF13752 ':INT32)
                              (MB-REF13753 ':INT32)
                              (LDV-REF13755 ':INT32)
                              (LDT-REF13757 ':INT32)
                              (LDC-REF13759 ':INT32)
                              (INFO-REF13761 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13750 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13751 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13752 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13753 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF13755 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13757 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13759 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13761 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF13754 V)
                                            (T-REF13756 T)
                                            (C-REF13758 C)
                                            (WORK-REF13760 WORK))
      (%%CGEMLQT SIDE TRANS M-REF13750 N-REF13751 K-REF13752
       MB-REF13753 V-REF13754 LDV-REF13755 T-REF13756 LDT-REF13757
       C-REF13758 LDC-REF13759 WORK-REF13760 INFO-REF13761))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQR2P "sgeqr2p_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQR2P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13762 ':INT32) (N-REF13763 ':INT32)
                              (LDA-REF13765 ':INT32)
                              (INFO-REF13768 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13762 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13763 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13765 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13768 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13764 A)
                                            (TAU-REF13766 TAU)
                                            (WORK-REF13767 WORK))
      (%%SGEQR2P M-REF13762 N-REF13763 A-REF13764 LDA-REF13765
       TAU-REF13766 WORK-REF13767 INFO-REF13768))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYEV_2STAGE "dsyev_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEV_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13771 ':INT32)
                              (LDA-REF13773 ':INT32)
                              (LWORK-REF13776 ':INT32)
                              (INFO-REF13777 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13771 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13773 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13776 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13777 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13772 A)
                                            (W-REF13774 W)
                                            (WORK-REF13775 WORK))
      (%%DSYEV_2STAGE JOBZ UPLO N-REF13771 A-REF13772 LDA-REF13773
       W-REF13774 WORK-REF13775 LWORK-REF13776 INFO-REF13777))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYCONVF "zsyconvf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONVF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13780 ':INT32)
                              (LDA-REF13782 ':INT32)
                              (INFO-REF13785 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13780 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13782 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13785 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13781 A)
                                            (E-REF13783 E)
                                            (IPIV-REF13784 IPIV))
      (%%ZSYCONVF UPLO WAY N-REF13780 A-REF13781 LDA-REF13782
       E-REF13783 IPIV-REF13784 INFO-REF13785))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAIC1 "claic1_")
  ((JOB :FOREIGN-ADDRESS) (J :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (SEST :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (GAMMA :FOREIGN-ADDRESS) (SESTPR :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAIC1 (JOB J X SEST W GAMMA SESTPR S C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAIC1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    GAMMA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SESTPR)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) C))
  (CFFI:WITH-FOREIGN-OBJECTS ((JOB-REF13786 ':INT32)
                              (J-REF13787 ':INT32)
                              (SEST-REF13789 ':FLOAT)
                              (GAMMA-REF13791
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (SESTPR-REF13792 ':FLOAT)
                              (S-REF13793
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF13794
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF JOB-REF13786 :INT32) JOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF J-REF13787 :INT32) J)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEST-REF13789 :FLOAT) SEST)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              GAMMA-REF13791
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART GAMMA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART GAMMA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF SESTPR-REF13792 :FLOAT) SESTPR)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S-REF13793
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              C-REF13794
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART C)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART C)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF13788 X)
                                            (W-REF13790 W))
      (%%CLAIC1 JOB-REF13786 J-REF13787 X-REF13788 SEST-REF13789
       W-REF13790 GAMMA-REF13791 SESTPR-REF13792 S-REF13793
       C-REF13794))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPLQT "dtplqt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPLQT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13795 ':INT32) (N-REF13796 ':INT32)
                              (L-REF13797 ':INT32)
                              (MB-REF13798 ':INT32)
                              (LDA-REF13800 ':INT32)
                              (LDB-REF13802 ':INT32)
                              (LDT-REF13804 ':INT32)
                              (INFO-REF13806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13795 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13796 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF13797 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13798 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13800 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13802 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13804 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13806 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13799 A)
                                            (B-REF13801 B)
                                            (T-REF13803 T)
                                            (WORK-REF13805 WORK))
      (%%DTPLQT M-REF13795 N-REF13796 L-REF13797 MB-REF13798 A-REF13799
       LDA-REF13800 B-REF13801 LDB-REF13802 T-REF13803 LDT-REF13804
       WORK-REF13805 INFO-REF13806))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYSV "dsysv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYSV
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13808 ':INT32)
                              (NRHS-REF13809 ':INT32)
                              (LDA-REF13811 ':INT32)
                              (LDB-REF13814 ':INT32)
                              (LWORK-REF13816 ':INT32)
                              (INFO-REF13817 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13808 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13809 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13811 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13814 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13816 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13817 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13810 A)
                                            (IPIV-REF13812 IPIV)
                                            (B-REF13813 B)
                                            (WORK-REF13815 WORK))
      (%%DSYSV UPLO N-REF13808 NRHS-REF13809 A-REF13810 LDA-REF13811
       IPIV-REF13812 B-REF13813 LDB-REF13814 WORK-REF13815
       LWORK-REF13816 INFO-REF13817))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEHRD "sgehrd_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEHRD (N ILO IHI A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEHRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13818 ':INT32)
                              (ILO-REF13819 ':INT32)
                              (IHI-REF13820 ':INT32)
                              (LDA-REF13822 ':INT32)
                              (LWORK-REF13825 ':INT32)
                              (INFO-REF13826 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13818 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13819 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13820 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13822 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13825 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13826 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13821 A)
                                            (TAU-REF13823 TAU)
                                            (WORK-REF13824 WORK))
      (%%SGEHRD N-REF13818 ILO-REF13819 IHI-REF13820 A-REF13821
       LDA-REF13822 TAU-REF13823 WORK-REF13824 LWORK-REF13825
       INFO-REF13826))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBEVD "chbevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (LRWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBEVD
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK LWORK RWORK LRWORK IWORK
     LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13829 ':INT32)
                              (KD-REF13830 ':INT32)
                              (LDAB-REF13832 ':INT32)
                              (LDZ-REF13835 ':INT32)
                              (LWORK-REF13837 ':INT32)
                              (LRWORK-REF13839 ':INT32)
                              (LIWORK-REF13841 ':INT32)
                              (INFO-REF13842 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13829 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF13830 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF13832 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13835 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13837 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF13839 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF13841 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13842 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF13831 AB)
                                            (W-REF13833 W)
                                            (Z-REF13834 Z)
                                            (WORK-REF13836 WORK)
                                            (RWORK-REF13838 RWORK)
                                            (IWORK-REF13840 IWORK))
      (%%CHBEVD JOBZ UPLO N-REF13829 KD-REF13830 AB-REF13831
       LDAB-REF13832 W-REF13833 Z-REF13834 LDZ-REF13835 WORK-REF13836
       LWORK-REF13837 RWORK-REF13838 LRWORK-REF13839 IWORK-REF13840
       LIWORK-REF13841 INFO-REF13842))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOEQU "zpoequ_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOEQU (N A LDA S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOEQU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13843 ':INT32)
                              (LDA-REF13845 ':INT32)
                              (SCOND-REF13847 ':DOUBLE)
                              (AMAX-REF13848 ':DOUBLE)
                              (INFO-REF13849 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13843 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13845 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF13847 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF13848 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13849 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13844 A)
                                            (S-REF13846 S))
      (%%ZPOEQU N-REF13843 A-REF13844 LDA-REF13845 S-REF13846
       SCOND-REF13847 AMAX-REF13848 INFO-REF13849))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SBBCSD "sbbcsd_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV2T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (U1 :FOREIGN-ADDRESS) (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (V2T :FOREIGN-ADDRESS)
   (LDV2T :FOREIGN-ADDRESS) (B11D :FOREIGN-ADDRESS)
   (B11E :FOREIGN-ADDRESS) (B12D :FOREIGN-ADDRESS)
   (B12E :FOREIGN-ADDRESS) (B21D :FOREIGN-ADDRESS)
   (B21E :FOREIGN-ADDRESS) (B22D :FOREIGN-ADDRESS)
   (B22E :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SBBCSD
    (JOBU1 JOBU2 JOBV1T JOBV2T TRANS M P Q THETA PHI U1 LDU1 U2 LDU2
     V1T LDV1T V2T LDV2T B11D B11E B12D B12E B21D B21E B22D B22E WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SBBCSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV2T)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V2T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV2T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B11D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B11E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B12D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B12E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B21D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B21E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B22D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B22E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13855 ':INT32) (P-REF13856 ':INT32)
                              (Q-REF13857 ':INT32)
                              (LDU1-REF13861 ':INT32)
                              (LDU2-REF13863 ':INT32)
                              (LDV1T-REF13865 ':INT32)
                              (LDV2T-REF13867 ':INT32)
                              (LWORK-REF13877 ':INT32)
                              (INFO-REF13878 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13855 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF13856 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF13857 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF13861 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF13863 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF13865 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV2T-REF13867 :INT32) LDV2T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13877 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13878 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((THETA-REF13858 THETA)
                                            (PHI-REF13859 PHI)
                                            (U1-REF13860 U1)
                                            (U2-REF13862 U2)
                                            (V1T-REF13864 V1T)
                                            (V2T-REF13866 V2T)
                                            (B11D-REF13868 B11D)
                                            (B11E-REF13869 B11E)
                                            (B12D-REF13870 B12D)
                                            (B12E-REF13871 B12E)
                                            (B21D-REF13872 B21D)
                                            (B21E-REF13873 B21E)
                                            (B22D-REF13874 B22D)
                                            (B22E-REF13875 B22E)
                                            (WORK-REF13876 WORK))
      (%%SBBCSD JOBU1 JOBU2 JOBV1T JOBV2T TRANS M-REF13855 P-REF13856
       Q-REF13857 THETA-REF13858 PHI-REF13859 U1-REF13860 LDU1-REF13861
       U2-REF13862 LDU2-REF13863 V1T-REF13864 LDV1T-REF13865
       V2T-REF13866 LDV2T-REF13867 B11D-REF13868 B11E-REF13869
       B12D-REF13870 B12E-REF13871 B21D-REF13872 B21E-REF13873
       B22D-REF13874 B22E-REF13875 WORK-REF13876 LWORK-REF13877
       INFO-REF13878))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYCON_ROOK "zsycon_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYCON_ROOK
    (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCON_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13880 ':INT32)
                              (LDA-REF13882 ':INT32)
                              (ANORM-REF13884 ':DOUBLE)
                              (RCOND-REF13885 ':DOUBLE)
                              (INFO-REF13887 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13880 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13882 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF13884 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF13885 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13887 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13881 A)
                                            (IPIV-REF13883 IPIV)
                                            (WORK-REF13886 WORK))
      (%%ZSYCON_ROOK UPLO N-REF13880 A-REF13881 LDA-REF13882
       IPIV-REF13883 ANORM-REF13884 RCOND-REF13885 WORK-REF13886
       INFO-REF13887))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLASWLQ "zlaswlq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLASWLQ (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLASWLQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13888 ':INT32) (N-REF13889 ':INT32)
                              (MB-REF13890 ':INT32)
                              (NB-REF13891 ':INT32)
                              (LDA-REF13893 ':INT32)
                              (LDT-REF13895 ':INT32)
                              (LWORK-REF13897 ':INT32)
                              (INFO-REF13898 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13888 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13889 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF13890 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF13891 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13893 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF13895 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13897 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13898 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13892 A)
                                            (T-REF13894 T)
                                            (WORK-REF13896 WORK))
      (%%ZLASWLQ M-REF13888 N-REF13889 MB-REF13890 NB-REF13891
       A-REF13892 LDA-REF13893 T-REF13894 LDT-REF13895 WORK-REF13896
       LWORK-REF13897 INFO-REF13898))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGTTS2 "dgtts2_")
  ((ITRANS :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGTTS2 (ITRANS N NRHS DL D DU DU2 IPIV B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGTTS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITRANS-REF13899 ':INT32)
                              (N-REF13900 ':INT32)
                              (NRHS-REF13901 ':INT32)
                              (LDB-REF13908 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITRANS-REF13899 :INT32) ITRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13900 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF13901 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13908 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF13902 DL)
                                            (D-REF13903 D)
                                            (DU-REF13904 DU)
                                            (DU2-REF13905 DU2)
                                            (IPIV-REF13906 IPIV)
                                            (B-REF13907 B))
      (%%DGTTS2 ITRANS-REF13899 N-REF13900 NRHS-REF13901 DL-REF13902
       D-REF13903 DU-REF13904 DU2-REF13905 IPIV-REF13906 B-REF13907
       LDB-REF13908))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGQL "dorgql_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGQL (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGQL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13909 ':INT32) (N-REF13910 ':INT32)
                              (K-REF13911 ':INT32)
                              (LDA-REF13913 ':INT32)
                              (LWORK-REF13916 ':INT32)
                              (INFO-REF13917 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13909 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13910 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13911 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13913 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13916 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13917 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13912 A)
                                            (TAU-REF13914 TAU)
                                            (WORK-REF13915 WORK))
      (%%DORGQL M-REF13909 N-REF13910 K-REF13911 A-REF13912
       LDA-REF13913 TAU-REF13914 WORK-REF13915 LWORK-REF13916
       INFO-REF13917))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARSCL2 "slarscl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARSCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARSCL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13918 ':INT32) (N-REF13919 ':INT32)
                              (LDX-REF13922 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13918 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13919 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF13922 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF13920 D)
                                            (X-REF13921 X))
      (%%SLARSCL2 M-REF13918 N-REF13919 D-REF13920 X-REF13921
       LDX-REF13922))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTGSEN "ztgsen_")
  ((IJOB :FOREIGN-ADDRESS) (WANTQ :FOREIGN-ADDRESS)
   (WANTZ :FOREIGN-ADDRESS) (SELECT :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (PL :FOREIGN-ADDRESS) (PR :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTGSEN
    (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHA BETA Q LDQ Z LDZ M PL
     PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSEN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF13923 ':INT32)
                              (WANTQ-REF13924 ':INT32)
                              (WANTZ-REF13925 ':INT32)
                              (N-REF13927 ':INT32)
                              (LDA-REF13929 ':INT32)
                              (LDB-REF13931 ':INT32)
                              (LDQ-REF13935 ':INT32)
                              (LDZ-REF13937 ':INT32)
                              (M-REF13938 ':INT32)
                              (PL-REF13939 ':DOUBLE)
                              (PR-REF13940 ':DOUBLE)
                              (LWORK-REF13943 ':INT32)
                              (LIWORK-REF13945 ':INT32)
                              (INFO-REF13946 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF13923 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF13924 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF13925 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13927 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13929 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13931 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF13935 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF13937 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13938 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF13939 :DOUBLE) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF13940 :DOUBLE) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13943 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF13945 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13946 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF13926 SELECT)
                                            (A-REF13928 A)
                                            (B-REF13930 B)
                                            (ALPHA-REF13932 ALPHA)
                                            (BETA-REF13933 BETA)
                                            (Q-REF13934 Q)
                                            (Z-REF13936 Z)
                                            (DIF-REF13941 DIF)
                                            (WORK-REF13942 WORK)
                                            (IWORK-REF13944 IWORK))
      (%%ZTGSEN IJOB-REF13923 WANTQ-REF13924 WANTZ-REF13925
       SELECT-REF13926 N-REF13927 A-REF13928 LDA-REF13929 B-REF13930
       LDB-REF13931 ALPHA-REF13932 BETA-REF13933 Q-REF13934
       LDQ-REF13935 Z-REF13936 LDZ-REF13937 M-REF13938 PL-REF13939
       PR-REF13940 DIF-REF13941 WORK-REF13942 LWORK-REF13943
       IWORK-REF13944 LIWORK-REF13945 INFO-REF13946))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMBR "cunmbr_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMBR
    (VECT SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF13950 ':INT32) (N-REF13951 ':INT32)
                              (K-REF13952 ':INT32)
                              (LDA-REF13954 ':INT32)
                              (LDC-REF13957 ':INT32)
                              (LWORK-REF13959 ':INT32)
                              (INFO-REF13960 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF13950 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13951 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF13952 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13954 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF13957 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13959 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13960 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13953 A)
                                            (TAU-REF13955 TAU)
                                            (C-REF13956 C)
                                            (WORK-REF13958 WORK))
      (%%CUNMBR VECT SIDE TRANS M-REF13950 N-REF13951 K-REF13952
       A-REF13953 LDA-REF13954 TAU-REF13955 C-REF13956 LDC-REF13957
       WORK-REF13958 LWORK-REF13959 INFO-REF13960))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGEV3 "zggev3_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGEV3
    (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK LWORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGEV3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13963 ':INT32)
                              (LDA-REF13965 ':INT32)
                              (LDB-REF13967 ':INT32)
                              (LDVL-REF13971 ':INT32)
                              (LDVR-REF13973 ':INT32)
                              (LWORK-REF13975 ':INT32)
                              (INFO-REF13977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13963 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13965 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13967 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF13971 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF13973 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF13975 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF13977 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13964 A)
                                            (B-REF13966 B)
                                            (ALPHA-REF13968 ALPHA)
                                            (BETA-REF13969 BETA)
                                            (VL-REF13970 VL)
                                            (VR-REF13972 VR)
                                            (WORK-REF13974 WORK)
                                            (RWORK-REF13976 RWORK))
      (%%ZGGEV3 JOBVL JOBVR N-REF13963 A-REF13964 LDA-REF13965
       B-REF13966 LDB-REF13967 ALPHA-REF13968 BETA-REF13969 VL-REF13970
       LDVL-REF13971 VR-REF13972 LDVR-REF13973 WORK-REF13974
       LWORK-REF13975 RWORK-REF13976 INFO-REF13977))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGEVX "zggevx_")
  ((BALANC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (LSCALE :FOREIGN-ADDRESS)
   (RSCALE :FOREIGN-ADDRESS) (ABNRM :FOREIGN-ADDRESS)
   (BBNRM :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (BWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGEVX
    (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHA BETA VL LDVL VR LDVR
     ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE RCONDV WORK LWORK RWORK
     IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABNRM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BBNRM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF13982 ':INT32)
                              (LDA-REF13984 ':INT32)
                              (LDB-REF13986 ':INT32)
                              (LDVL-REF13990 ':INT32)
                              (LDVR-REF13992 ':INT32)
                              (ILO-REF13993 ':INT32)
                              (IHI-REF13994 ':INT32)
                              (ABNRM-REF13997 ':DOUBLE)
                              (BBNRM-REF13998 ':DOUBLE)
                              (LWORK-REF14002 ':INT32)
                              (INFO-REF14006 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF13982 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF13984 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF13986 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF13990 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF13992 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF13993 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF13994 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF13997 :DOUBLE) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF13998 :DOUBLE) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14002 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14006 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF13983 A)
                                            (B-REF13985 B)
                                            (ALPHA-REF13987 ALPHA)
                                            (BETA-REF13988 BETA)
                                            (VL-REF13989 VL)
                                            (VR-REF13991 VR)
                                            (LSCALE-REF13995 LSCALE)
                                            (RSCALE-REF13996 RSCALE)
                                            (RCONDE-REF13999 RCONDE)
                                            (RCONDV-REF14000 RCONDV)
                                            (WORK-REF14001 WORK)
                                            (RWORK-REF14003 RWORK)
                                            (IWORK-REF14004 IWORK)
                                            (BWORK-REF14005 BWORK))
      (%%ZGGEVX BALANC JOBVL JOBVR SENSE N-REF13982 A-REF13983
       LDA-REF13984 B-REF13985 LDB-REF13986 ALPHA-REF13987
       BETA-REF13988 VL-REF13989 LDVL-REF13990 VR-REF13991
       LDVR-REF13992 ILO-REF13993 IHI-REF13994 LSCALE-REF13995
       RSCALE-REF13996 ABNRM-REF13997 BBNRM-REF13998 RCONDE-REF13999
       RCONDV-REF14000 WORK-REF14001 LWORK-REF14002 RWORK-REF14003
       IWORK-REF14004 BWORK-REF14005 INFO-REF14006))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGRQ "dorgrq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGRQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14007 ':INT32) (N-REF14008 ':INT32)
                              (K-REF14009 ':INT32)
                              (LDA-REF14011 ':INT32)
                              (LWORK-REF14014 ':INT32)
                              (INFO-REF14015 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14007 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14008 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14009 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14011 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14014 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14015 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14010 A)
                                            (TAU-REF14012 TAU)
                                            (WORK-REF14013 WORK))
      (%%DORGRQ M-REF14007 N-REF14008 K-REF14009 A-REF14010
       LDA-REF14011 TAU-REF14012 WORK-REF14013 LWORK-REF14014
       INFO-REF14015))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYSWAPR "zsyswapr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (I1 :FOREIGN-ADDRESS)
   (I2 :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYSWAPR (UPLO N A LDA I1 I2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSWAPR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I2))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14017 ':INT32)
                              (LDA-REF14019 ':INT32)
                              (I1-REF14020 ':INT32)
                              (I2-REF14021 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14017 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14019 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF I1-REF14020 :INT32) I1)
    (COMMON-LISP:SETF (CFFI:MEM-REF I2-REF14021 :INT32) I2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14018 A))
      (%%ZSYSWAPR UPLO N-REF14017 A-REF14018 LDA-REF14019 I1-REF14020
       I2-REF14021))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGHD3 "zgghd3_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGHD3
    (COMPQ COMPZ N ILO IHI A LDA B LDB Q LDQ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGHD3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14024 ':INT32)
                              (ILO-REF14025 ':INT32)
                              (IHI-REF14026 ':INT32)
                              (LDA-REF14028 ':INT32)
                              (LDB-REF14030 ':INT32)
                              (LDQ-REF14032 ':INT32)
                              (LDZ-REF14034 ':INT32)
                              (LWORK-REF14036 ':INT32)
                              (INFO-REF14037 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14024 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF14025 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF14026 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14028 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14030 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14032 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14034 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14036 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14037 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14027 A)
                                            (B-REF14029 B)
                                            (Q-REF14031 Q)
                                            (Z-REF14033 Z)
                                            (WORK-REF14035 WORK))
      (%%ZGGHD3 COMPQ COMPZ N-REF14024 ILO-REF14025 IHI-REF14026
       A-REF14027 LDA-REF14028 B-REF14029 LDB-REF14030 Q-REF14031
       LDQ-REF14032 Z-REF14033 LDZ-REF14034 WORK-REF14035
       LWORK-REF14036 INFO-REF14037))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLABRD "slabrd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (LDY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLABRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14038 ':INT32) (N-REF14039 ':INT32)
                              (NB-REF14040 ':INT32)
                              (LDA-REF14042 ':INT32)
                              (LDX-REF14048 ':INT32)
                              (LDY-REF14050 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14038 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14039 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14040 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14042 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14048 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF14050 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14041 A)
                                            (D-REF14043 D)
                                            (E-REF14044 E)
                                            (TAUQ-REF14045 TAUQ)
                                            (TAUP-REF14046 TAUP)
                                            (X-REF14047 X)
                                            (Y-REF14049 Y))
      (%%SLABRD M-REF14038 N-REF14039 NB-REF14040 A-REF14041
       LDA-REF14042 D-REF14043 E-REF14044 TAUQ-REF14045 TAUP-REF14046
       X-REF14047 LDX-REF14048 Y-REF14049 LDY-REF14050))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGETF2 "sgetf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGETF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14051 ':INT32) (N-REF14052 ':INT32)
                              (LDA-REF14054 ':INT32)
                              (INFO-REF14056 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14051 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14052 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14054 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14056 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14053 A)
                                            (IPIV-REF14055 IPIV))
      (%%SGETF2 M-REF14051 N-REF14052 A-REF14053 LDA-REF14054
       IPIV-REF14055 INFO-REF14056))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGELQ "dgelq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (TSIZE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGELQ (M N A LDA T TSIZE WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGELQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14057 ':INT32) (N-REF14058 ':INT32)
                              (LDA-REF14060 ':INT32)
                              (TSIZE-REF14062 ':INT32)
                              (LWORK-REF14064 ':INT32)
                              (INFO-REF14065 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14057 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14060 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF14062 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14064 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14065 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14059 A)
                                            (T-REF14061 T)
                                            (WORK-REF14063 WORK))
      (%%DGELQ M-REF14057 N-REF14058 A-REF14059 LDA-REF14060 T-REF14061
       TSIZE-REF14062 WORK-REF14063 LWORK-REF14064 INFO-REF14065))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSBGVD "ssbgvd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSBGVD
    (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK IWORK LIWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBGVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14068 ':INT32)
                              (KA-REF14069 ':INT32)
                              (KB-REF14070 ':INT32)
                              (LDAB-REF14072 ':INT32)
                              (LDBB-REF14074 ':INT32)
                              (LDZ-REF14077 ':INT32)
                              (LWORK-REF14079 ':INT32)
                              (LIWORK-REF14081 ':INT32)
                              (INFO-REF14082 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14068 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF14069 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14070 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14072 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF14074 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14077 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14079 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF14081 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14082 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14071 AB)
                                            (BB-REF14073 BB)
                                            (W-REF14075 W)
                                            (Z-REF14076 Z)
                                            (WORK-REF14078 WORK)
                                            (IWORK-REF14080 IWORK))
      (%%SSBGVD JOBZ UPLO N-REF14068 KA-REF14069 KB-REF14070
       AB-REF14071 LDAB-REF14072 BB-REF14073 LDBB-REF14074 W-REF14075
       Z-REF14076 LDZ-REF14077 WORK-REF14078 LWORK-REF14079
       IWORK-REF14080 LIWORK-REF14081 INFO-REF14082))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYCONVF "ssyconvf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYCONVF (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONVF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14085 ':INT32)
                              (LDA-REF14087 ':INT32)
                              (INFO-REF14090 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14087 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14090 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14086 A)
                                            (E-REF14088 E)
                                            (IPIV-REF14089 IPIV))
      (%%SSYCONVF UPLO WAY N-REF14085 A-REF14086 LDA-REF14087
       E-REF14088 IPIV-REF14089 INFO-REF14090))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARRV "dlarrv_")
  ((N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (DOL :FOREIGN-ADDRESS) (DOU :FOREIGN-ADDRESS)
   (MINRGP :FOREIGN-ADDRESS) (RTOL1 :FOREIGN-ADDRESS)
   (RTOL2 :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WERR :FOREIGN-ADDRESS) (WGAP :FOREIGN-ADDRESS)
   (IBLOCK :FOREIGN-ADDRESS) (INDEXW :FOREIGN-ADDRESS)
   (GERS :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARRV
    (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W WERR WGAP
     IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINRGP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEXW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GERS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14091 ':INT32)
                              (VL-REF14092 ':DOUBLE)
                              (VU-REF14093 ':DOUBLE)
                              (PIVMIN-REF14096 ':DOUBLE)
                              (M-REF14098 ':INT32)
                              (DOL-REF14099 ':INT32)
                              (DOU-REF14100 ':INT32)
                              (MINRGP-REF14101 ':DOUBLE)
                              (RTOL1-REF14102 ':DOUBLE)
                              (RTOL2-REF14103 ':DOUBLE)
                              (LDZ-REF14111 ':INT32)
                              (INFO-REF14115 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14091 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF14092 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF14093 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF14096 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14098 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF14099 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF14100 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF14101 :DOUBLE) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF14102 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF14103 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14111 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14115 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14094 D)
                                            (L-REF14095 L)
                                            (ISPLIT-REF14097 ISPLIT)
                                            (W-REF14104 W)
                                            (WERR-REF14105 WERR)
                                            (WGAP-REF14106 WGAP)
                                            (IBLOCK-REF14107 IBLOCK)
                                            (INDEXW-REF14108 INDEXW)
                                            (GERS-REF14109 GERS)
                                            (Z-REF14110 Z)
                                            (ISUPPZ-REF14112 ISUPPZ)
                                            (WORK-REF14113 WORK)
                                            (IWORK-REF14114 IWORK))
      (%%DLARRV N-REF14091 VL-REF14092 VU-REF14093 D-REF14094
       L-REF14095 PIVMIN-REF14096 ISPLIT-REF14097 M-REF14098
       DOL-REF14099 DOU-REF14100 MINRGP-REF14101 RTOL1-REF14102
       RTOL2-REF14103 W-REF14104 WERR-REF14105 WGAP-REF14106
       IBLOCK-REF14107 INDEXW-REF14108 GERS-REF14109 Z-REF14110
       LDZ-REF14111 ISUPPZ-REF14112 WORK-REF14113 IWORK-REF14114
       INFO-REF14115))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHSEIN "zhsein_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EIGSRC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (INITV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS)
   (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IFAILL :FOREIGN-ADDRESS) (IFAILR :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHSEIN
    (SIDE EIGSRC INITV SELECT N H LDH W VL LDVL VR LDVR MM M WORK RWORK
     IFAILL IFAILR INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHSEIN)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EIGSRC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING INITV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAILL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAILR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14120 ':INT32)
                              (LDH-REF14122 ':INT32)
                              (LDVL-REF14125 ':INT32)
                              (LDVR-REF14127 ':INT32)
                              (MM-REF14128 ':INT32)
                              (M-REF14129 ':INT32)
                              (INFO-REF14134 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14120 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14122 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF14125 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF14127 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF14128 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14129 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14134 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF14119 SELECT)
                                            (H-REF14121 H)
                                            (W-REF14123 W)
                                            (VL-REF14124 VL)
                                            (VR-REF14126 VR)
                                            (WORK-REF14130 WORK)
                                            (RWORK-REF14131 RWORK)
                                            (IFAILL-REF14132 IFAILL)
                                            (IFAILR-REF14133 IFAILR))
      (%%ZHSEIN SIDE EIGSRC INITV SELECT-REF14119 N-REF14120 H-REF14121
       LDH-REF14122 W-REF14123 VL-REF14124 LDVL-REF14125 VR-REF14126
       LDVR-REF14127 MM-REF14128 M-REF14129 WORK-REF14130
       RWORK-REF14131 IFAILL-REF14132 IFAILR-REF14133 INFO-REF14134))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPSTRF "dpstrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (PIV :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPSTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14136 ':INT32)
                              (LDA-REF14138 ':INT32)
                              (RANK-REF14140 ':INT32)
                              (TOL-REF14141 ':DOUBLE)
                              (INFO-REF14143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14136 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14138 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF14140 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF14141 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14143 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14137 A)
                                            (PIV-REF14139 PIV)
                                            (WORK-REF14142 WORK))
      (%%DPSTRF UPLO N-REF14136 A-REF14137 LDA-REF14138 PIV-REF14139
       RANK-REF14140 TOL-REF14141 WORK-REF14142 INFO-REF14143))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRS "ssytrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14145 ':INT32)
                              (NRHS-REF14146 ':INT32)
                              (LDA-REF14148 ':INT32)
                              (LDB-REF14151 ':INT32)
                              (INFO-REF14152 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14146 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14148 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14151 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14152 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14147 A)
                                            (IPIV-REF14149 IPIV)
                                            (B-REF14150 B))
      (%%SSYTRS UPLO N-REF14145 NRHS-REF14146 A-REF14147 LDA-REF14148
       IPIV-REF14149 B-REF14150 LDB-REF14151 INFO-REF14152))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGTTRS "zgttrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGTTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14154 ':INT32)
                              (NRHS-REF14155 ':INT32)
                              (LDB-REF14162 ':INT32)
                              (INFO-REF14163 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14154 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14155 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14162 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14163 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF14156 DL)
                                            (D-REF14157 D)
                                            (DU-REF14158 DU)
                                            (DU2-REF14159 DU2)
                                            (IPIV-REF14160 IPIV)
                                            (B-REF14161 B))
      (%%ZGTTRS TRANS N-REF14154 NRHS-REF14155 DL-REF14156 D-REF14157
       DU-REF14158 DU2-REF14159 IPIV-REF14160 B-REF14161 LDB-REF14162
       INFO-REF14163))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARFB "slarfb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARFB
    (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14168 ':INT32) (N-REF14169 ':INT32)
                              (K-REF14170 ':INT32)
                              (LDV-REF14172 ':INT32)
                              (LDT-REF14174 ':INT32)
                              (LDC-REF14176 ':INT32)
                              (LDWORK-REF14178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14168 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14169 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14170 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14172 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14174 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14176 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14178 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14171 V)
                                            (T-REF14173 T)
                                            (C-REF14175 C)
                                            (WORK-REF14177 WORK))
      (%%SLARFB SIDE TRANS DIRECT STOREV M-REF14168 N-REF14169
       K-REF14170 V-REF14171 LDV-REF14172 T-REF14173 LDT-REF14174
       C-REF14175 LDC-REF14176 WORK-REF14177 LDWORK-REF14178))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPQRT2 "ztpqrt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPQRT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPQRT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14179 ':INT32) (N-REF14180 ':INT32)
                              (L-REF14181 ':INT32)
                              (LDA-REF14183 ':INT32)
                              (LDB-REF14185 ':INT32)
                              (LDT-REF14187 ':INT32)
                              (INFO-REF14188 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14179 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14180 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14181 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14183 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14185 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14187 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14188 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14182 A)
                                            (B-REF14184 B)
                                            (T-REF14186 T))
      (%%ZTPQRT2 M-REF14179 N-REF14180 L-REF14181 A-REF14182
       LDA-REF14183 B-REF14184 LDB-REF14185 T-REF14186 LDT-REF14187
       INFO-REF14188))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBSV "cgbsv_")
  ((N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14189 ':INT32)
                              (KL-REF14190 ':INT32)
                              (KU-REF14191 ':INT32)
                              (NRHS-REF14192 ':INT32)
                              (LDAB-REF14194 ':INT32)
                              (LDB-REF14197 ':INT32)
                              (INFO-REF14198 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14189 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF14190 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF14191 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14192 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14194 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14197 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14198 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14193 AB)
                                            (IPIV-REF14195 IPIV)
                                            (B-REF14196 B))
      (%%CGBSV N-REF14189 KL-REF14190 KU-REF14191 NRHS-REF14192
       AB-REF14193 LDAB-REF14194 IPIV-REF14195 B-REF14196 LDB-REF14197
       INFO-REF14198))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAUUM "dlauum_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAUUM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14200 ':INT32)
                              (LDA-REF14202 ':INT32)
                              (INFO-REF14203 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14200 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14202 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14203 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14201 A))
      (%%DLAUUM UPLO N-REF14200 A-REF14201 LDA-REF14202
       INFO-REF14203))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPTRD "zhptrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14205 ':INT32)
                              (INFO-REF14210 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14205 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14210 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14206 AP)
                                            (D-REF14207 D)
                                            (E-REF14208 E)
                                            (TAU-REF14209 TAU))
      (%%ZHPTRD UPLO N-REF14205 AP-REF14206 D-REF14207 E-REF14208
       TAU-REF14209 INFO-REF14210))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLALS0 "clals0_")
  ((ICOMPQ :FOREIGN-ADDRESS) (NL :FOREIGN-ADDRESS)
   (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (BX :FOREIGN-ADDRESS) (LDBX :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (LDGCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (LDGNUM :FOREIGN-ADDRESS)
   (POLES :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS)
   (DIFR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLALS0
    (ICOMPQ NL NR SQRE NRHS B LDB BX LDBX PERM GIVPTR GIVCOL LDGCOL
     GIVNUM LDGNUM POLES DIFL DIFR Z K C S RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALS0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF14211 ':INT32)
                              (NL-REF14212 ':INT32)
                              (NR-REF14213 ':INT32)
                              (SQRE-REF14214 ':INT32)
                              (NRHS-REF14215 ':INT32)
                              (LDB-REF14217 ':INT32)
                              (LDBX-REF14219 ':INT32)
                              (GIVPTR-REF14221 ':INT32)
                              (LDGCOL-REF14223 ':INT32)
                              (LDGNUM-REF14225 ':INT32)
                              (K-REF14230 ':INT32) (C-REF14231 ':FLOAT)
                              (S-REF14232 ':FLOAT)
                              (INFO-REF14234 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF14211 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14212 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14213 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14214 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14215 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14217 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF14219 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF14221 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF14223 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF14225 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14230 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14231 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF14232 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14234 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF14216 B)
                                            (BX-REF14218 BX)
                                            (PERM-REF14220 PERM)
                                            (GIVCOL-REF14222 GIVCOL)
                                            (GIVNUM-REF14224 GIVNUM)
                                            (POLES-REF14226 POLES)
                                            (DIFL-REF14227 DIFL)
                                            (DIFR-REF14228 DIFR)
                                            (Z-REF14229 Z)
                                            (RWORK-REF14233 RWORK))
      (%%CLALS0 ICOMPQ-REF14211 NL-REF14212 NR-REF14213 SQRE-REF14214
       NRHS-REF14215 B-REF14216 LDB-REF14217 BX-REF14218 LDBX-REF14219
       PERM-REF14220 GIVPTR-REF14221 GIVCOL-REF14222 LDGCOL-REF14223
       GIVNUM-REF14224 LDGNUM-REF14225 POLES-REF14226 DIFL-REF14227
       DIFR-REF14228 Z-REF14229 K-REF14230 C-REF14231 S-REF14232
       RWORK-REF14233 INFO-REF14234))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYCONVF_ROOK "dsyconvf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCONVF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14237 ':INT32)
                              (LDA-REF14239 ':INT32)
                              (INFO-REF14242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14237 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14239 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14242 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14238 A)
                                            (E-REF14240 E)
                                            (IPIV-REF14241 IPIV))
      (%%DSYCONVF_ROOK UPLO WAY N-REF14237 A-REF14238 LDA-REF14239
       E-REF14240 IPIV-REF14241 INFO-REF14242))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGSVP3 "cggsvp3_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (TOLA :FOREIGN-ADDRESS) (TOLB :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGSVP3
    (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV Q LDQ
     IWORK RWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGSVP3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14246 ':INT32) (P-REF14247 ':INT32)
                              (N-REF14248 ':INT32)
                              (LDA-REF14250 ':INT32)
                              (LDB-REF14252 ':INT32)
                              (TOLA-REF14253 ':FLOAT)
                              (TOLB-REF14254 ':FLOAT)
                              (K-REF14255 ':INT32) (L-REF14256 ':INT32)
                              (LDU-REF14258 ':INT32)
                              (LDV-REF14260 ':INT32)
                              (LDQ-REF14262 ':INT32)
                              (LWORK-REF14267 ':INT32)
                              (INFO-REF14268 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14246 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14247 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14248 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14250 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14252 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF14253 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF14254 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14255 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14256 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14258 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14260 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14262 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14267 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14268 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14249 A)
                                            (B-REF14251 B)
                                            (U-REF14257 U)
                                            (V-REF14259 V)
                                            (Q-REF14261 Q)
                                            (IWORK-REF14263 IWORK)
                                            (RWORK-REF14264 RWORK)
                                            (TAU-REF14265 TAU)
                                            (WORK-REF14266 WORK))
      (%%CGGSVP3 JOBU JOBV JOBQ M-REF14246 P-REF14247 N-REF14248
       A-REF14249 LDA-REF14250 B-REF14251 LDB-REF14252 TOLA-REF14253
       TOLB-REF14254 K-REF14255 L-REF14256 U-REF14257 LDU-REF14258
       V-REF14259 LDV-REF14260 Q-REF14261 LDQ-REF14262 IWORK-REF14263
       RWORK-REF14264 TAU-REF14265 WORK-REF14266 LWORK-REF14267
       INFO-REF14268))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRS_ROOK "csytrs_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14270 ':INT32)
                              (NRHS-REF14271 ':INT32)
                              (LDA-REF14273 ':INT32)
                              (LDB-REF14276 ':INT32)
                              (INFO-REF14277 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14270 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14271 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14273 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14276 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14277 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14272 A)
                                            (IPIV-REF14274 IPIV)
                                            (B-REF14275 B))
      (%%CSYTRS_ROOK UPLO N-REF14270 NRHS-REF14271 A-REF14272
       LDA-REF14273 IPIV-REF14274 B-REF14275 LDB-REF14276
       INFO-REF14277))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPTRFS "cptrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (EF :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPTRFS
    (UPLO N NRHS D E DF EF B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    EF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14279 ':INT32)
                              (NRHS-REF14280 ':INT32)
                              (LDB-REF14286 ':INT32)
                              (LDX-REF14288 ':INT32)
                              (INFO-REF14293 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14279 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14280 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14286 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14288 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14293 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14281 D)
                                            (E-REF14282 E)
                                            (DF-REF14283 DF)
                                            (EF-REF14284 EF)
                                            (B-REF14285 B)
                                            (X-REF14287 X)
                                            (FERR-REF14289 FERR)
                                            (BERR-REF14290 BERR)
                                            (WORK-REF14291 WORK)
                                            (RWORK-REF14292 RWORK))
      (%%CPTRFS UPLO N-REF14279 NRHS-REF14280 D-REF14281 E-REF14282
       DF-REF14283 EF-REF14284 B-REF14285 LDB-REF14286 X-REF14287
       LDX-REF14288 FERR-REF14289 BERR-REF14290 WORK-REF14291
       RWORK-REF14292 INFO-REF14293))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGESVJ "zgesvj_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SVA :FOREIGN-ADDRESS) (MV :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (CWORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGESVJ
    (JOBA JOBU JOBV M N A LDA SVA MV V LDV CWORK LWORK RWORK LRWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESVJ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SVA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    CWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14297 ':INT32) (N-REF14298 ':INT32)
                              (LDA-REF14300 ':INT32)
                              (MV-REF14302 ':INT32)
                              (LDV-REF14304 ':INT32)
                              (LWORK-REF14306 ':INT32)
                              (LRWORK-REF14308 ':INT32)
                              (INFO-REF14309 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14297 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14298 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14300 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF MV-REF14302 :INT32) MV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14304 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14306 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF14308 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14309 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14299 A)
                                            (SVA-REF14301 SVA)
                                            (V-REF14303 V)
                                            (CWORK-REF14305 CWORK)
                                            (RWORK-REF14307 RWORK))
      (%%ZGESVJ JOBA JOBU JOBV M-REF14297 N-REF14298 A-REF14299
       LDA-REF14300 SVA-REF14301 MV-REF14302 V-REF14303 LDV-REF14304
       CWORK-REF14305 LWORK-REF14306 RWORK-REF14307 LRWORK-REF14308
       INFO-REF14309))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELQ2 "cgelq2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELQ2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14310 ':INT32) (N-REF14311 ':INT32)
                              (LDA-REF14313 ':INT32)
                              (INFO-REF14316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14310 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14311 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14313 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14316 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14312 A)
                                            (TAU-REF14314 TAU)
                                            (WORK-REF14315 WORK))
      (%%CGELQ2 M-REF14310 N-REF14311 A-REF14312 LDA-REF14313
       TAU-REF14314 WORK-REF14315 INFO-REF14316))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED6 "dlaed6_")
  ((KNITER :FOREIGN-ADDRESS) (ORGATI :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (FINIT :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED6 (KNITER ORGATI RHO D Z FINIT TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KNITER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ORGATI)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT FINIT)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KNITER-REF14317 ':INT32)
                              (ORGATI-REF14318 ':INT32)
                              (RHO-REF14319 ':DOUBLE)
                              (FINIT-REF14322 ':DOUBLE)
                              (TAU-REF14323 ':DOUBLE)
                              (INFO-REF14324 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KNITER-REF14317 :INT32) KNITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF ORGATI-REF14318 :INT32) ORGATI)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF14319 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF FINIT-REF14322 :DOUBLE) FINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF14323 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14324 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14320 D)
                                            (Z-REF14321 Z))
      (%%DLAED6 KNITER-REF14317 ORGATI-REF14318 RHO-REF14319 D-REF14320
       Z-REF14321 FINIT-REF14322 TAU-REF14323 INFO-REF14324))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTGEVC "dtgevc_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (LDS :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (LDP :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTGEVC
    (SIDE HOWMNY SELECT N S LDS P LDP VL LDVL VR LDVR MM M WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEVC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14328 ':INT32)
                              (LDS-REF14330 ':INT32)
                              (LDP-REF14332 ':INT32)
                              (LDVL-REF14334 ':INT32)
                              (LDVR-REF14336 ':INT32)
                              (MM-REF14337 ':INT32)
                              (M-REF14338 ':INT32)
                              (INFO-REF14340 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14328 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF14330 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDP-REF14332 :INT32) LDP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF14334 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF14336 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF14337 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14338 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14340 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF14327 SELECT)
                                            (S-REF14329 S)
                                            (P-REF14331 P)
                                            (VL-REF14333 VL)
                                            (VR-REF14335 VR)
                                            (WORK-REF14339 WORK))
      (%%DTGEVC SIDE HOWMNY SELECT-REF14327 N-REF14328 S-REF14329
       LDS-REF14330 P-REF14331 LDP-REF14332 VL-REF14333 LDVL-REF14334
       VR-REF14335 LDVR-REF14336 MM-REF14337 M-REF14338 WORK-REF14339
       INFO-REF14340))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPTTF "stpttf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (ARF :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPTTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ARF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14343 ':INT32)
                              (INFO-REF14346 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14343 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14346 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14344 AP)
                                            (ARF-REF14345 ARF))
      (%%STPTTF TRANSR UPLO N-REF14343 AP-REF14344 ARF-REF14345
       INFO-REF14346))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANHS "dlanhs_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANHS (NORM N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANHS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14348 ':INT32)
                              (LDA-REF14350 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14348 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14350 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14349 A)
                                            (WORK-REF14351 WORK))
      (%%DLANHS NORM N-REF14348 A-REF14349 LDA-REF14350
       WORK-REF14351))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPEV "chpev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPEV (JOBZ UPLO N AP W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14354 ':INT32)
                              (LDZ-REF14358 ':INT32)
                              (INFO-REF14361 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14354 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14358 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14361 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14355 AP)
                                            (W-REF14356 W)
                                            (Z-REF14357 Z)
                                            (WORK-REF14359 WORK)
                                            (RWORK-REF14360 RWORK))
      (%%CHPEV JOBZ UPLO N-REF14354 AP-REF14355 W-REF14356 Z-REF14357
       LDZ-REF14358 WORK-REF14359 RWORK-REF14360 INFO-REF14361))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZHESV_AA_2STAGE "zhesv_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TB :FOREIGN-ADDRESS) (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHESV_AA_2STAGE
    (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14363 ':INT32)
                              (NRHS-REF14364 ':INT32)
                              (LDA-REF14366 ':INT32)
                              (LTB-REF14368 ':INT32)
                              (LDB-REF14372 ':INT32)
                              (LWORK-REF14374 ':INT32)
                              (INFO-REF14375 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14363 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14364 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14366 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF14368 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14372 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14374 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14375 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14365 A)
                                            (TB-REF14367 TB)
                                            (IPIV-REF14369 IPIV)
                                            (IPIV2-REF14370 IPIV2)
                                            (B-REF14371 B)
                                            (WORK-REF14373 WORK))
      (%%ZHESV_AA_2STAGE UPLO N-REF14363 NRHS-REF14364 A-REF14365
       LDA-REF14366 TB-REF14367 LTB-REF14368 IPIV-REF14369
       IPIV2-REF14370 B-REF14371 LDB-REF14372 WORK-REF14373
       LWORK-REF14374 INFO-REF14375))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPTRI "ssptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14377 ':INT32)
                              (INFO-REF14381 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14381 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14378 AP)
                                            (IPIV-REF14379 IPIV)
                                            (WORK-REF14380 WORK))
      (%%SSPTRI UPLO N-REF14377 AP-REF14378 IPIV-REF14379 WORK-REF14380
       INFO-REF14381))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPRFS "ztprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPRFS
    (UPLO TRANS DIAG N NRHS AP B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14385 ':INT32)
                              (NRHS-REF14386 ':INT32)
                              (LDB-REF14389 ':INT32)
                              (LDX-REF14391 ':INT32)
                              (INFO-REF14396 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14385 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14386 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14389 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14391 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14396 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14387 AP)
                                            (B-REF14388 B)
                                            (X-REF14390 X)
                                            (FERR-REF14392 FERR)
                                            (BERR-REF14393 BERR)
                                            (WORK-REF14394 WORK)
                                            (RWORK-REF14395 RWORK))
      (%%ZTPRFS UPLO TRANS DIAG N-REF14385 NRHS-REF14386 AP-REF14387
       B-REF14388 LDB-REF14389 X-REF14390 LDX-REF14391 FERR-REF14392
       BERR-REF14393 WORK-REF14394 RWORK-REF14395 INFO-REF14396))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYEV_2STAGE "ssyev_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYEV_2STAGE (JOBZ UPLO N A LDA W WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYEV_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14399 ':INT32)
                              (LDA-REF14401 ':INT32)
                              (LWORK-REF14404 ':INT32)
                              (INFO-REF14405 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14399 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14401 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14404 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14405 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14400 A)
                                            (W-REF14402 W)
                                            (WORK-REF14403 WORK))
      (%%SSYEV_2STAGE JOBZ UPLO N-REF14399 A-REF14400 LDA-REF14401
       W-REF14402 WORK-REF14403 LWORK-REF14404 INFO-REF14405))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASYF "dlasyf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASYF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14407 ':INT32)
                              (NB-REF14408 ':INT32)
                              (KB-REF14409 ':INT32)
                              (LDA-REF14411 ':INT32)
                              (LDW-REF14414 ':INT32)
                              (INFO-REF14415 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14407 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14408 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14409 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14411 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF14414 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14415 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14410 A)
                                            (IPIV-REF14412 IPIV)
                                            (W-REF14413 W))
      (%%DLASYF UPLO N-REF14407 NB-REF14408 KB-REF14409 A-REF14410
       LDA-REF14411 IPIV-REF14412 W-REF14413 LDW-REF14414
       INFO-REF14415))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%DSYTRS_AA_2STAGE "dsytrs_aa_2stage_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TB :FOREIGN-ADDRESS) (LTB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (IPIV2 :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRS_AA_2STAGE
    (UPLO N NRHS A LDA TB LTB IPIV IPIV2 B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRS_AA_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14417 ':INT32)
                              (NRHS-REF14418 ':INT32)
                              (LDA-REF14420 ':INT32)
                              (LTB-REF14422 ':INT32)
                              (LDB-REF14426 ':INT32)
                              (INFO-REF14427 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14418 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14420 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LTB-REF14422 :INT32) LTB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14426 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14427 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14419 A)
                                            (TB-REF14421 TB)
                                            (IPIV-REF14423 IPIV)
                                            (IPIV2-REF14424 IPIV2)
                                            (B-REF14425 B))
      (%%DSYTRS_AA_2STAGE UPLO N-REF14417 NRHS-REF14418 A-REF14419
       LDA-REF14420 TB-REF14421 LTB-REF14422 IPIV-REF14423
       IPIV2-REF14424 B-REF14425 LDB-REF14426 INFO-REF14427))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTPTTF "ctpttf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (ARF :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPTTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ARF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14430 ':INT32)
                              (INFO-REF14433 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14430 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14433 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14431 AP)
                                            (ARF-REF14432 ARF))
      (%%CTPTTF TRANSR UPLO N-REF14430 AP-REF14431 ARF-REF14432
       INFO-REF14433))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGELQT "sgelqt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14434 ':INT32) (N-REF14435 ':INT32)
                              (MB-REF14436 ':INT32)
                              (LDA-REF14438 ':INT32)
                              (LDT-REF14440 ':INT32)
                              (INFO-REF14442 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14434 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14435 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14436 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14438 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14440 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14442 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14437 A)
                                            (T-REF14439 T)
                                            (WORK-REF14441 WORK))
      (%%SGELQT M-REF14434 N-REF14435 MB-REF14436 A-REF14437
       LDA-REF14438 T-REF14439 LDT-REF14440 WORK-REF14441
       INFO-REF14442))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_SYRCOND "dla_syrcond_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (CMODE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_SYRCOND
    (UPLO N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRCOND)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14444 ':INT32)
                              (LDA-REF14446 ':INT32)
                              (LDAF-REF14448 ':INT32)
                              (CMODE-REF14450 ':INT32)
                              (INFO-REF14452 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14444 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14446 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF14448 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF14450 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14452 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14445 A)
                                            (AF-REF14447 AF)
                                            (IPIV-REF14449 IPIV)
                                            (C-REF14451 C)
                                            (WORK-REF14453 WORK)
                                            (IWORK-REF14454 IWORK))
      (%%DLA_SYRCOND UPLO N-REF14444 A-REF14445 LDA-REF14446
       AF-REF14447 LDAF-REF14448 IPIV-REF14449 CMODE-REF14450
       C-REF14451 INFO-REF14452 WORK-REF14453 IWORK-REF14454))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQPS "dlaqps_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (OFFSET :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (VN1 :FOREIGN-ADDRESS) (VN2 :FOREIGN-ADDRESS)
   (AUXV :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQPS
    (M N OFFSET NB KB A LDA JPVT TAU VN1 VN2 AUXV F LDF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQPS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VN1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VN2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AUXV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14455 ':INT32) (N-REF14456 ':INT32)
                              (OFFSET-REF14457 ':INT32)
                              (NB-REF14458 ':INT32)
                              (KB-REF14459 ':INT32)
                              (LDA-REF14461 ':INT32)
                              (LDF-REF14468 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14455 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14456 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF14457 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14458 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF14459 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14461 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF14468 :INT32) LDF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14460 A)
                                            (JPVT-REF14462 JPVT)
                                            (TAU-REF14463 TAU)
                                            (VN1-REF14464 VN1)
                                            (VN2-REF14465 VN2)
                                            (AUXV-REF14466 AUXV)
                                            (F-REF14467 F))
      (%%DLAQPS M-REF14455 N-REF14456 OFFSET-REF14457 NB-REF14458
       KB-REF14459 A-REF14460 LDA-REF14461 JPVT-REF14462 TAU-REF14463
       VN1-REF14464 VN2-REF14465 AUXV-REF14466 F-REF14467
       LDF-REF14468))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZROT "zrot_")
  ((N :FOREIGN-ADDRESS) (CX :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (CY :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZROT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    CX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    CY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14469 ':INT32)
                              (INCX-REF14471 ':INT32)
                              (INCY-REF14473 ':INT32)
                              (C-REF14474 ':DOUBLE)
                              (S-REF14475
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14469 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF14471 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF14473 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF14474 :DOUBLE) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              S-REF14475
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF14470 CX)
                                            (CY-REF14472 CY))
      (%%ZROT N-REF14469 CX-REF14470 INCX-REF14471 CY-REF14472
       INCY-REF14473 C-REF14474 S-REF14475))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOSV "cposv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14477 ':INT32)
                              (NRHS-REF14478 ':INT32)
                              (LDA-REF14480 ':INT32)
                              (LDB-REF14482 ':INT32)
                              (INFO-REF14483 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14477 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14478 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14480 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14482 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14483 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14479 A)
                                            (B-REF14481 B))
      (%%CPOSV UPLO N-REF14477 NRHS-REF14478 A-REF14479 LDA-REF14480
       B-REF14481 LDB-REF14482 INFO-REF14483))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAGS2 "clags2_")
  ((UPPER :FOREIGN-ADDRESS) (A1 :FOREIGN-ADDRESS) (A2 :FOREIGN-ADDRESS)
   (A3 :FOREIGN-ADDRESS) (B1 :FOREIGN-ADDRESS) (B2 :FOREIGN-ADDRESS)
   (B3 :FOREIGN-ADDRESS) (CSU :FOREIGN-ADDRESS) (SNU :FOREIGN-ADDRESS)
   (CSV :FOREIGN-ADDRESS) (SNV :FOREIGN-ADDRESS) (CSQ :FOREIGN-ADDRESS)
   (SNQ :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAGS2
    (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAGS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) A2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A3)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) B2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B3)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSU)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    SNU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSV)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    SNV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSQ)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
    SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF14484 ':INT32)
                              (A1-REF14485 ':FLOAT)
                              (A2-REF14486
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (A3-REF14487 ':FLOAT)
                              (B1-REF14488 ':FLOAT)
                              (B2-REF14489
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (B3-REF14490 ':FLOAT)
                              (CSU-REF14491 ':FLOAT)
                              (SNU-REF14492
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CSV-REF14493 ':FLOAT)
                              (SNV-REF14494
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CSQ-REF14495 ':FLOAT)
                              (SNQ-REF14496
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF14484 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF14485 :FLOAT) A1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              A2-REF14486
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A2)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART A2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF14487 :FLOAT) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF14488 :FLOAT) B1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              B2-REF14489
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B2)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART B2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF14490 :FLOAT) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF14491 :FLOAT) CSU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SNU-REF14492
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SNU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF14493 :FLOAT) CSV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SNV-REF14494
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNV)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SNV)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF14495 :FLOAT) CSQ)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SNQ-REF14496
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNQ)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SNQ)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CLAGS2 UPPER-REF14484 A1-REF14485 A2-REF14486 A3-REF14487
       B1-REF14488 B2-REF14489 B3-REF14490 CSU-REF14491 SNU-REF14492
       CSV-REF14493 SNV-REF14494 CSQ-REF14495 SNQ-REF14496))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRS_3 "zhetrs_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRS_3 (UPLO N NRHS A LDA E IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14498 ':INT32)
                              (NRHS-REF14499 ':INT32)
                              (LDA-REF14501 ':INT32)
                              (LDB-REF14505 ':INT32)
                              (INFO-REF14506 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14498 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14499 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14501 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14505 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14506 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14500 A)
                                            (E-REF14502 E)
                                            (IPIV-REF14503 IPIV)
                                            (B-REF14504 B))
      (%%ZHETRS_3 UPLO N-REF14498 NRHS-REF14499 A-REF14500 LDA-REF14501
       E-REF14502 IPIV-REF14503 B-REF14504 LDB-REF14505
       INFO-REF14506))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNGTSQR "zungtsqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNGTSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGTSQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14507 ':INT32) (N-REF14508 ':INT32)
                              (MB-REF14509 ':INT32)
                              (NB-REF14510 ':INT32)
                              (LDA-REF14512 ':INT32)
                              (LDT-REF14514 ':INT32)
                              (LWORK-REF14516 ':INT32)
                              (INFO-REF14517 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14507 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14508 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14509 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14510 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14512 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14514 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14516 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14517 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14511 A)
                                            (T-REF14513 T)
                                            (WORK-REF14515 WORK))
      (%%ZUNGTSQR M-REF14507 N-REF14508 MB-REF14509 NB-REF14510
       A-REF14511 LDA-REF14512 T-REF14513 LDT-REF14514 WORK-REF14515
       LWORK-REF14516 INFO-REF14517))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBCON "dgbcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBCON
    (NORM N KL KU AB LDAB IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14519 ':INT32)
                              (KL-REF14520 ':INT32)
                              (KU-REF14521 ':INT32)
                              (LDAB-REF14523 ':INT32)
                              (ANORM-REF14525 ':DOUBLE)
                              (RCOND-REF14526 ':DOUBLE)
                              (INFO-REF14529 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14519 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF14520 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF14521 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14523 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF14525 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF14526 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14529 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14522 AB)
                                            (IPIV-REF14524 IPIV)
                                            (WORK-REF14527 WORK)
                                            (IWORK-REF14528 IWORK))
      (%%DGBCON NORM N-REF14519 KL-REF14520 KU-REF14521 AB-REF14522
       LDAB-REF14523 IPIV-REF14524 ANORM-REF14525 RCOND-REF14526
       WORK-REF14527 IWORK-REF14528 INFO-REF14529))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEESX "zgeesx_")
  ((JOBVS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SDIM :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (VS :FOREIGN-ADDRESS)
   (LDVS :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (BWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEESX
    (JOBVS SORT SELECT SENSE N A LDA SDIM W VS LDVS RCONDE RCONDV WORK
     LWORK RWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEESX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    VS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELECT-REF14532 ':INT32)
                              (N-REF14534 ':INT32)
                              (LDA-REF14536 ':INT32)
                              (SDIM-REF14537 ':INT32)
                              (LDVS-REF14540 ':INT32)
                              (RCONDE-REF14541 ':DOUBLE)
                              (RCONDV-REF14542 ':DOUBLE)
                              (LWORK-REF14544 ':INT32)
                              (INFO-REF14547 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELECT-REF14532 :INT32) SELECT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14534 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14536 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF14537 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVS-REF14540 :INT32) LDVS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDE-REF14541 :DOUBLE) RCONDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCONDV-REF14542 :DOUBLE) RCONDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14544 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14547 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14535 A)
                                            (W-REF14538 W)
                                            (VS-REF14539 VS)
                                            (WORK-REF14543 WORK)
                                            (RWORK-REF14545 RWORK)
                                            (BWORK-REF14546 BWORK))
      (%%ZGEESX JOBVS SORT SELECT-REF14532 SENSE N-REF14534 A-REF14535
       LDA-REF14536 SDIM-REF14537 W-REF14538 VS-REF14539 LDVS-REF14540
       RCONDE-REF14541 RCONDV-REF14542 WORK-REF14543 LWORK-REF14544
       RWORK-REF14545 BWORK-REF14546 INFO-REF14547))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANGT "clangt_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANGT (NORM N DL D DU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANGT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14549 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14549 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF14550 DL)
                                            (D-REF14551 D)
                                            (DU-REF14552 DU))
      (%%CLANGT NORM N-REF14549 DL-REF14550 D-REF14551 DU-REF14552))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPRFB "ztprfb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPRFB
    (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT A LDA B LDB WORK
     LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPRFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14557 ':INT32) (N-REF14558 ':INT32)
                              (K-REF14559 ':INT32) (L-REF14560 ':INT32)
                              (LDV-REF14562 ':INT32)
                              (LDT-REF14564 ':INT32)
                              (LDA-REF14566 ':INT32)
                              (LDB-REF14568 ':INT32)
                              (LDWORK-REF14570 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14557 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14558 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14559 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF14560 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14562 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14564 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14566 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14568 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14570 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14561 V)
                                            (T-REF14563 T)
                                            (A-REF14565 A)
                                            (B-REF14567 B)
                                            (WORK-REF14569 WORK))
      (%%ZTPRFB SIDE TRANS DIRECT STOREV M-REF14557 N-REF14558
       K-REF14559 L-REF14560 V-REF14561 LDV-REF14562 T-REF14563
       LDT-REF14564 A-REF14565 LDA-REF14566 B-REF14567 LDB-REF14568
       WORK-REF14569 LDWORK-REF14570))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETF2 "chetf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14572 ':INT32)
                              (LDA-REF14574 ':INT32)
                              (INFO-REF14576 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14574 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14576 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14573 A)
                                            (IPIV-REF14575 IPIV))
      (%%CHETF2 UPLO N-REF14572 A-REF14573 LDA-REF14574 IPIV-REF14575
       INFO-REF14576))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQR3 "dlaqr3_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS) (ND :FOREIGN-ADDRESS)
   (SR :FOREIGN-ADDRESS) (SI :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (NH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS)
   (LDWV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQR3
    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR SI V LDV
     NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF14577 ':INT32)
                              (WANTZ-REF14578 ':INT32)
                              (N-REF14579 ':INT32)
                              (KTOP-REF14580 ':INT32)
                              (KBOT-REF14581 ':INT32)
                              (NW-REF14582 ':INT32)
                              (LDH-REF14584 ':INT32)
                              (ILOZ-REF14585 ':INT32)
                              (IHIZ-REF14586 ':INT32)
                              (LDZ-REF14588 ':INT32)
                              (NS-REF14589 ':INT32)
                              (ND-REF14590 ':INT32)
                              (LDV-REF14594 ':INT32)
                              (NH-REF14595 ':INT32)
                              (LDT-REF14597 ':INT32)
                              (NV-REF14598 ':INT32)
                              (LDWV-REF14600 ':INT32)
                              (LWORK-REF14602 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF14577 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14578 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14579 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF14580 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF14581 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF14582 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF14584 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF14585 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF14586 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14588 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF14589 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF14590 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14594 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF14595 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14597 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF14598 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF14600 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14602 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF14583 H)
                                            (Z-REF14587 Z)
                                            (SR-REF14591 SR)
                                            (SI-REF14592 SI)
                                            (V-REF14593 V)
                                            (T-REF14596 T)
                                            (WV-REF14599 WV)
                                            (WORK-REF14601 WORK))
      (%%DLAQR3 WANTT-REF14577 WANTZ-REF14578 N-REF14579 KTOP-REF14580
       KBOT-REF14581 NW-REF14582 H-REF14583 LDH-REF14584 ILOZ-REF14585
       IHIZ-REF14586 Z-REF14587 LDZ-REF14588 NS-REF14589 ND-REF14590
       SR-REF14591 SI-REF14592 V-REF14593 LDV-REF14594 NH-REF14595
       T-REF14596 LDT-REF14597 NV-REF14598 WV-REF14599 LDWV-REF14600
       WORK-REF14601 LWORK-REF14602))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRF_AA "zhetrf_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14604 ':INT32)
                              (LDA-REF14606 ':INT32)
                              (LWORK-REF14609 ':INT32)
                              (INFO-REF14610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14604 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14606 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14609 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14605 A)
                                            (IPIV-REF14607 IPIV)
                                            (WORK-REF14608 WORK))
      (%%ZHETRF_AA UPLO N-REF14604 A-REF14605 LDA-REF14606
       IPIV-REF14607 WORK-REF14608 LWORK-REF14609 INFO-REF14610))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBTRD "chbtrd_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBTRD (VECT UPLO N KD AB LDAB D E Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14613 ':INT32)
                              (KD-REF14614 ':INT32)
                              (LDAB-REF14616 ':INT32)
                              (LDQ-REF14620 ':INT32)
                              (INFO-REF14622 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14613 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14614 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14616 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14620 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14622 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14615 AB)
                                            (D-REF14617 D)
                                            (E-REF14618 E)
                                            (Q-REF14619 Q)
                                            (WORK-REF14621 WORK))
      (%%CHBTRD VECT UPLO N-REF14613 KD-REF14614 AB-REF14615
       LDAB-REF14616 D-REF14617 E-REF14618 Q-REF14619 LDQ-REF14620
       WORK-REF14621 INFO-REF14622))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGESVX "cgesvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGESVX
    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX RCOND
     FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14625 ':INT32)
                              (NRHS-REF14626 ':INT32)
                              (LDA-REF14628 ':INT32)
                              (LDAF-REF14630 ':INT32)
                              (LDB-REF14636 ':INT32)
                              (LDX-REF14638 ':INT32)
                              (RCOND-REF14639 ':FLOAT)
                              (INFO-REF14644 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14625 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14626 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14628 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF14630 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14636 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14638 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF14639 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14644 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14627 A)
                                            (AF-REF14629 AF)
                                            (IPIV-REF14631 IPIV)
                                            (R-REF14633 R)
                                            (C-REF14634 C)
                                            (B-REF14635 B)
                                            (X-REF14637 X)
                                            (FERR-REF14640 FERR)
                                            (BERR-REF14641 BERR)
                                            (WORK-REF14642 WORK)
                                            (RWORK-REF14643 RWORK))
      (%%CGESVX FACT TRANS N-REF14625 NRHS-REF14626 A-REF14627
       LDA-REF14628 AF-REF14629 LDAF-REF14630 IPIV-REF14631 EQUED
       R-REF14633 C-REF14634 B-REF14635 LDB-REF14636 X-REF14637
       LDX-REF14638 RCOND-REF14639 FERR-REF14640 BERR-REF14641
       WORK-REF14642 RWORK-REF14643 INFO-REF14644))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTBTRS "ztbtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTBTRS
    (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14648 ':INT32)
                              (KD-REF14649 ':INT32)
                              (NRHS-REF14650 ':INT32)
                              (LDAB-REF14652 ':INT32)
                              (LDB-REF14654 ':INT32)
                              (INFO-REF14655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14648 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14649 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14650 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14652 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14654 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14655 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14651 AB)
                                            (B-REF14653 B))
      (%%ZTBTRS UPLO TRANS DIAG N-REF14648 KD-REF14649 NRHS-REF14650
       AB-REF14651 LDAB-REF14652 B-REF14653 LDB-REF14654
       INFO-REF14655))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLATRS "dlatrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (CNORM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLATRS
    (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14660 ':INT32)
                              (LDA-REF14662 ':INT32)
                              (SCALE-REF14664 ':DOUBLE)
                              (INFO-REF14666 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14660 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14662 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14664 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14666 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14661 A)
                                            (X-REF14663 X)
                                            (CNORM-REF14665 CNORM))
      (%%DLATRS UPLO TRANS DIAG NORMIN N-REF14660 A-REF14661
       LDA-REF14662 X-REF14663 SCALE-REF14664 CNORM-REF14665
       INFO-REF14666))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARFB "zlarfb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARFB
    (SIDE TRANS DIRECT STOREV M N K V LDV T LDT C LDC WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14671 ':INT32) (N-REF14672 ':INT32)
                              (K-REF14673 ':INT32)
                              (LDV-REF14675 ':INT32)
                              (LDT-REF14677 ':INT32)
                              (LDC-REF14679 ':INT32)
                              (LDWORK-REF14681 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14671 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14672 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14673 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF14675 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14677 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14679 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF14681 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF14674 V)
                                            (T-REF14676 T)
                                            (C-REF14678 C)
                                            (WORK-REF14680 WORK))
      (%%ZLARFB SIDE TRANS DIRECT STOREV M-REF14671 N-REF14672
       K-REF14673 V-REF14674 LDV-REF14675 T-REF14676 LDT-REF14677
       C-REF14678 LDC-REF14679 WORK-REF14680 LDWORK-REF14681))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAGS2 "zlags2_")
  ((UPPER :FOREIGN-ADDRESS) (A1 :FOREIGN-ADDRESS) (A2 :FOREIGN-ADDRESS)
   (A3 :FOREIGN-ADDRESS) (B1 :FOREIGN-ADDRESS) (B2 :FOREIGN-ADDRESS)
   (B3 :FOREIGN-ADDRESS) (CSU :FOREIGN-ADDRESS) (SNU :FOREIGN-ADDRESS)
   (CSV :FOREIGN-ADDRESS) (SNV :FOREIGN-ADDRESS) (CSQ :FOREIGN-ADDRESS)
   (SNQ :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAGS2
    (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAGS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) A2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT A3)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B1)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) B2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT B3)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSU)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    SNU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSV)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    SNV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CSQ)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF14682 ':INT32)
                              (A1-REF14683 ':DOUBLE)
                              (A2-REF14684
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (A3-REF14685 ':DOUBLE)
                              (B1-REF14686 ':DOUBLE)
                              (B2-REF14687
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (B3-REF14688 ':DOUBLE)
                              (CSU-REF14689 ':DOUBLE)
                              (SNU-REF14690
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CSV-REF14691 ':DOUBLE)
                              (SNV-REF14692
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CSQ-REF14693 ':DOUBLE)
                              (SNQ-REF14694
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF14682 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF14683 :DOUBLE) A1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              A2-REF14684
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART A2)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART A2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF14685 :DOUBLE) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF14686 :DOUBLE) B1)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              B2-REF14687
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART B2)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART B2)))
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF14688 :DOUBLE) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF14689 :DOUBLE) CSU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SNU-REF14690
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SNU)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF14691 :DOUBLE) CSV)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SNV-REF14692
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNV)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SNV)))
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF14693 :DOUBLE) CSQ)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              SNQ-REF14694
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART SNQ)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART SNQ)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZLAGS2 UPPER-REF14682 A1-REF14683 A2-REF14684 A3-REF14685
       B1-REF14686 B2-REF14687 B3-REF14688 CSU-REF14689 SNU-REF14690
       CSV-REF14691 SNV-REF14692 CSQ-REF14693 SNQ-REF14694))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLATSQR "slatsqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLATSQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14695 ':INT32) (N-REF14696 ':INT32)
                              (MB-REF14697 ':INT32)
                              (NB-REF14698 ':INT32)
                              (LDA-REF14700 ':INT32)
                              (LDT-REF14702 ':INT32)
                              (LWORK-REF14704 ':INT32)
                              (INFO-REF14705 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14695 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14696 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF14697 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF14698 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14700 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF14702 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14704 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14705 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14699 A)
                                            (T-REF14701 T)
                                            (WORK-REF14703 WORK))
      (%%SLATSQR M-REF14695 N-REF14696 MB-REF14697 NB-REF14698
       A-REF14699 LDA-REF14700 T-REF14701 LDT-REF14702 WORK-REF14703
       LWORK-REF14704 INFO-REF14705))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMRQ "sormrq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMRQ
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMRQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14708 ':INT32) (N-REF14709 ':INT32)
                              (K-REF14710 ':INT32)
                              (LDA-REF14712 ':INT32)
                              (LDC-REF14715 ':INT32)
                              (LWORK-REF14717 ':INT32)
                              (INFO-REF14718 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14708 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14709 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14710 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14712 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14715 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14717 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14718 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14711 A)
                                            (TAU-REF14713 TAU)
                                            (C-REF14714 C)
                                            (WORK-REF14716 WORK))
      (%%SORMRQ SIDE TRANS M-REF14708 N-REF14709 K-REF14710 A-REF14711
       LDA-REF14712 TAU-REF14713 C-REF14714 LDC-REF14715 WORK-REF14716
       LWORK-REF14717 INFO-REF14718))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD2 "dlasd2_")
  ((NL :FOREIGN-ADDRESS) (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (LDVT :FOREIGN-ADDRESS) (DSIGMA :FOREIGN-ADDRESS)
   (U2 :FOREIGN-ADDRESS) (LDU2 :FOREIGN-ADDRESS) (VT2 :FOREIGN-ADDRESS)
   (LDVT2 :FOREIGN-ADDRESS) (IDXP :FOREIGN-ADDRESS)
   (IDX :FOREIGN-ADDRESS) (IDXC :FOREIGN-ADDRESS)
   (IDXQ :FOREIGN-ADDRESS) (COLTYP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD2
    (NL NR SQRE K D Z ALPHA BETA U LDU VT LDVT DSIGMA U2 LDU2 VT2 LDVT2
     IDXP IDX IDXC IDXQ COLTYP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    COLTYP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((NL-REF14719 ':INT32)
                              (NR-REF14720 ':INT32)
                              (SQRE-REF14721 ':INT32)
                              (K-REF14722 ':INT32)
                              (ALPHA-REF14725 ':DOUBLE)
                              (BETA-REF14726 ':DOUBLE)
                              (LDU-REF14728 ':INT32)
                              (LDVT-REF14730 ':INT32)
                              (LDU2-REF14733 ':INT32)
                              (LDVT2-REF14735 ':INT32)
                              (INFO-REF14741 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF14719 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF14720 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF14721 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14722 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF14725 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF14726 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF14728 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF14730 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF14733 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT2-REF14735 :INT32) LDVT2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14741 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14723 D)
                                            (Z-REF14724 Z)
                                            (U-REF14727 U)
                                            (VT-REF14729 VT)
                                            (DSIGMA-REF14731 DSIGMA)
                                            (U2-REF14732 U2)
                                            (VT2-REF14734 VT2)
                                            (IDXP-REF14736 IDXP)
                                            (IDX-REF14737 IDX)
                                            (IDXC-REF14738 IDXC)
                                            (IDXQ-REF14739 IDXQ)
                                            (COLTYP-REF14740 COLTYP))
      (%%DLASD2 NL-REF14719 NR-REF14720 SQRE-REF14721 K-REF14722
       D-REF14723 Z-REF14724 ALPHA-REF14725 BETA-REF14726 U-REF14727
       LDU-REF14728 VT-REF14729 LDVT-REF14730 DSIGMA-REF14731
       U2-REF14732 LDU2-REF14733 VT2-REF14734 LDVT2-REF14735
       IDXP-REF14736 IDX-REF14737 IDXC-REF14738 IDXQ-REF14739
       COLTYP-REF14740 INFO-REF14741))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_GERPVGRW "sla_gerpvgrw_")
  ((N :FOREIGN-ADDRESS) (NCOLS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_GERPVGRW (N NCOLS A LDA AF LDAF)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GERPVGRW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14742 ':INT32)
                              (NCOLS-REF14743 ':INT32)
                              (LDA-REF14745 ':INT32)
                              (LDAF-REF14747 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14742 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF14743 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14745 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF14747 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14744 A)
                                            (AF-REF14746 AF))
      (%%SLA_GERPVGRW N-REF14742 NCOLS-REF14743 A-REF14744 LDA-REF14745
       AF-REF14746 LDAF-REF14747))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_SYRPVGRW "dla_syrpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_SYRPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14749 ':INT32)
                              (INFO-REF14750 ':INT32)
                              (LDA-REF14752 ':INT32)
                              (LDAF-REF14754 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14749 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14750 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14752 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF14754 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14751 A)
                                            (AF-REF14753 AF)
                                            (IPIV-REF14755 IPIV)
                                            (WORK-REF14756 WORK))
      (%%DLA_SYRPVGRW UPLO N-REF14749 INFO-REF14750 A-REF14751
       LDA-REF14752 AF-REF14753 LDAF-REF14754 IPIV-REF14755
       WORK-REF14756))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAGS2 "slags2_")
  ((UPPER :FOREIGN-ADDRESS) (A1 :FOREIGN-ADDRESS) (A2 :FOREIGN-ADDRESS)
   (A3 :FOREIGN-ADDRESS) (B1 :FOREIGN-ADDRESS) (B2 :FOREIGN-ADDRESS)
   (B3 :FOREIGN-ADDRESS) (CSU :FOREIGN-ADDRESS) (SNU :FOREIGN-ADDRESS)
   (CSV :FOREIGN-ADDRESS) (SNV :FOREIGN-ADDRESS) (CSQ :FOREIGN-ADDRESS)
   (SNQ :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAGS2
    (UPPER A1 A2 A3 B1 B2 B3 CSU SNU CSV SNV CSQ SNQ)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPPER)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT A3)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B2)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT B3)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CSQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SNQ))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPPER-REF14757 ':INT32)
                              (A1-REF14758 ':FLOAT)
                              (A2-REF14759 ':FLOAT)
                              (A3-REF14760 ':FLOAT)
                              (B1-REF14761 ':FLOAT)
                              (B2-REF14762 ':FLOAT)
                              (B3-REF14763 ':FLOAT)
                              (CSU-REF14764 ':FLOAT)
                              (SNU-REF14765 ':FLOAT)
                              (CSV-REF14766 ':FLOAT)
                              (SNV-REF14767 ':FLOAT)
                              (CSQ-REF14768 ':FLOAT)
                              (SNQ-REF14769 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPPER-REF14757 :INT32) UPPER)
    (COMMON-LISP:SETF (CFFI:MEM-REF A1-REF14758 :FLOAT) A1)
    (COMMON-LISP:SETF (CFFI:MEM-REF A2-REF14759 :FLOAT) A2)
    (COMMON-LISP:SETF (CFFI:MEM-REF A3-REF14760 :FLOAT) A3)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF14761 :FLOAT) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF B2-REF14762 :FLOAT) B2)
    (COMMON-LISP:SETF (CFFI:MEM-REF B3-REF14763 :FLOAT) B3)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSU-REF14764 :FLOAT) CSU)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNU-REF14765 :FLOAT) SNU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSV-REF14766 :FLOAT) CSV)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNV-REF14767 :FLOAT) SNV)
    (COMMON-LISP:SETF (CFFI:MEM-REF CSQ-REF14768 :FLOAT) CSQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SNQ-REF14769 :FLOAT) SNQ)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SLAGS2 UPPER-REF14757 A1-REF14758 A2-REF14759 A3-REF14760
       B1-REF14761 B2-REF14762 B3-REF14763 CSU-REF14764 SNU-REF14765
       CSV-REF14766 SNV-REF14767 CSQ-REF14768 SNQ-REF14769))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CLAUNHR_COL_GETRFNP2 "claunhr_col_getrfnp2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAUNHR_COL_GETRFNP2 (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUNHR_COL_GETRFNP2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14770 ':INT32) (N-REF14771 ':INT32)
                              (LDA-REF14773 ':INT32)
                              (INFO-REF14775 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14770 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14771 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14773 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14775 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14772 A)
                                            (D-REF14774 D))
      (%%CLAUNHR_COL_GETRFNP2 M-REF14770 N-REF14771 A-REF14772
       LDA-REF14773 D-REF14774 INFO-REF14775))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNMLQ "cunmlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNMLQ
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNMLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14778 ':INT32) (N-REF14779 ':INT32)
                              (K-REF14780 ':INT32)
                              (LDA-REF14782 ':INT32)
                              (LDC-REF14785 ':INT32)
                              (LWORK-REF14787 ':INT32)
                              (INFO-REF14788 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14778 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14779 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF14780 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14782 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14785 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14787 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14788 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14781 A)
                                            (TAU-REF14783 TAU)
                                            (C-REF14784 C)
                                            (WORK-REF14786 WORK))
      (%%CUNMLQ SIDE TRANS M-REF14778 N-REF14779 K-REF14780 A-REF14781
       LDA-REF14782 TAU-REF14783 C-REF14784 LDC-REF14785 WORK-REF14786
       LWORK-REF14787 INFO-REF14788))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPOTRF2 "zpotrf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPOTRF2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPOTRF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14790 ':INT32)
                              (LDA-REF14792 ':INT32)
                              (INFO-REF14793 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14790 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14792 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14793 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14791 A))
      (%%ZPOTRF2 UPLO N-REF14790 A-REF14791 LDA-REF14792
       INFO-REF14793))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPTEQR "spteqr_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPTEQR (COMPZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTEQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14795 ':INT32)
                              (LDZ-REF14799 ':INT32)
                              (INFO-REF14801 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14799 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14801 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF14796 D)
                                            (E-REF14797 E)
                                            (Z-REF14798 Z)
                                            (WORK-REF14800 WORK))
      (%%SPTEQR COMPZ N-REF14795 D-REF14796 E-REF14797 Z-REF14798
       LDZ-REF14799 WORK-REF14800 INFO-REF14801))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSPTRI "csptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14803 ':INT32)
                              (INFO-REF14807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14807 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF14804 AP)
                                            (IPIV-REF14805 IPIV)
                                            (WORK-REF14806 WORK))
      (%%CSPTRI UPLO N-REF14803 AP-REF14804 IPIV-REF14805 WORK-REF14806
       INFO-REF14807))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTGEX2 "dtgex2_")
  ((WANTQ :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (J1 :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTGEX2
    (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ J1 N1 N2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEX2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF14808 ':INT32)
                              (WANTZ-REF14809 ':INT32)
                              (N-REF14810 ':INT32)
                              (LDA-REF14812 ':INT32)
                              (LDB-REF14814 ':INT32)
                              (LDQ-REF14816 ':INT32)
                              (LDZ-REF14818 ':INT32)
                              (J1-REF14819 ':INT32)
                              (N1-REF14820 ':INT32)
                              (N2-REF14821 ':INT32)
                              (LWORK-REF14823 ':INT32)
                              (INFO-REF14824 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF14808 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14809 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14810 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14812 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14814 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF14816 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14818 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF14819 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF14820 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF14821 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14823 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14824 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14811 A)
                                            (B-REF14813 B)
                                            (Q-REF14815 Q)
                                            (Z-REF14817 Z)
                                            (WORK-REF14822 WORK))
      (%%DTGEX2 WANTQ-REF14808 WANTZ-REF14809 N-REF14810 A-REF14811
       LDA-REF14812 B-REF14813 LDB-REF14814 Q-REF14815 LDQ-REF14816
       Z-REF14817 LDZ-REF14818 J1-REF14819 N1-REF14820 N2-REF14821
       WORK-REF14822 LWORK-REF14823 INFO-REF14824))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STGSY2 "stgsy2_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (IJOB :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (LDD :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (LDE :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (RDSUM :FOREIGN-ADDRESS)
   (RDSCAL :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (PQ :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STGSY2
    (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE RDSUM
     RDSCAL IWORK PQ INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSY2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF14826 ':INT32)
                              (M-REF14827 ':INT32) (N-REF14828 ':INT32)
                              (LDA-REF14830 ':INT32)
                              (LDB-REF14832 ':INT32)
                              (LDC-REF14834 ':INT32)
                              (LDD-REF14836 ':INT32)
                              (LDE-REF14838 ':INT32)
                              (LDF-REF14840 ':INT32)
                              (SCALE-REF14841 ':FLOAT)
                              (RDSUM-REF14842 ':FLOAT)
                              (RDSCAL-REF14843 ':FLOAT)
                              (PQ-REF14845 ':INT32)
                              (INFO-REF14846 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF14826 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14827 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14828 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14830 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14832 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF14834 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF14836 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF14838 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF14840 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14841 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF14842 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF14843 :FLOAT) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PQ-REF14845 :INT32) PQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14846 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14829 A)
                                            (B-REF14831 B)
                                            (C-REF14833 C)
                                            (D-REF14835 D)
                                            (E-REF14837 E)
                                            (F-REF14839 F)
                                            (IWORK-REF14844 IWORK))
      (%%STGSY2 TRANS IJOB-REF14826 M-REF14827 N-REF14828 A-REF14829
       LDA-REF14830 B-REF14831 LDB-REF14832 C-REF14833 LDC-REF14834
       D-REF14835 LDD-REF14836 E-REF14837 LDE-REF14838 F-REF14839
       LDF-REF14840 SCALE-REF14841 RDSUM-REF14842 RDSCAL-REF14843
       IWORK-REF14844 PQ-REF14845 INFO-REF14846))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CLA_PORFSX_EXTENDED "cla_porfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (COLEQU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_PORFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY BERR_OUT
     N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND
     ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_PORFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF14847 ':INT32)
                              (N-REF14849 ':INT32)
                              (NRHS-REF14850 ':INT32)
                              (LDA-REF14852 ':INT32)
                              (LDAF-REF14854 ':INT32)
                              (COLEQU-REF14855 ':INT32)
                              (LDB-REF14858 ':INT32)
                              (LDY-REF14860 ':INT32)
                              (N_NORMS-REF14862 ':INT32)
                              (RCOND-REF14869 ':FLOAT)
                              (ITHRESH-REF14870 ':INT32)
                              (RTHRESH-REF14871 ':FLOAT)
                              (DZ_UB-REF14872 ':FLOAT)
                              (IGNORE_CWISE-REF14873 ':INT32)
                              (INFO-REF14874 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF14847 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14849 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF14850 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14852 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF14854 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF14855 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14858 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF14860 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF14862 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF14869 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF14870 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF14871 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF14872 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF14873 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14874 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14851 A)
                                            (AF-REF14853 AF)
                                            (C-REF14856 C)
                                            (B-REF14857 B)
                                            (Y-REF14859 Y)
                                            (BERR_OUT-REF14861
                                             BERR_OUT)
                                            (ERR_BNDS_NORM-REF14863
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF14864
                                             ERR_BNDS_COMP)
                                            (RES-REF14865 RES)
                                            (AYB-REF14866 AYB)
                                            (DY-REF14867 DY)
                                            (Y_TAIL-REF14868 Y_TAIL))
      (%%CLA_PORFSX_EXTENDED PREC_TYPE-REF14847 UPLO N-REF14849
       NRHS-REF14850 A-REF14851 LDA-REF14852 AF-REF14853 LDAF-REF14854
       COLEQU-REF14855 C-REF14856 B-REF14857 LDB-REF14858 Y-REF14859
       LDY-REF14860 BERR_OUT-REF14861 N_NORMS-REF14862
       ERR_BNDS_NORM-REF14863 ERR_BNDS_COMP-REF14864 RES-REF14865
       AYB-REF14866 DY-REF14867 Y_TAIL-REF14868 RCOND-REF14869
       ITHRESH-REF14870 RTHRESH-REF14871 DZ_UB-REF14872
       IGNORE_CWISE-REF14873 INFO-REF14874))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLATRS "zlatrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NORMIN (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (CNORM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLATRS
    (UPLO TRANS DIAG NORMIN N A LDA X SCALE CNORM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) CNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14879 ':INT32)
                              (LDA-REF14881 ':INT32)
                              (SCALE-REF14883 ':DOUBLE)
                              (INFO-REF14885 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14879 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14881 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14883 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14885 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14880 A)
                                            (X-REF14882 X)
                                            (CNORM-REF14884 CNORM))
      (%%ZLATRS UPLO TRANS DIAG NORMIN N-REF14879 A-REF14880
       LDA-REF14881 X-REF14882 SCALE-REF14883 CNORM-REF14884
       INFO-REF14885))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBEQUB "sgbequb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBEQUB
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBEQUB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14886 ':INT32) (N-REF14887 ':INT32)
                              (KL-REF14888 ':INT32)
                              (KU-REF14889 ':INT32)
                              (LDAB-REF14891 ':INT32)
                              (ROWCND-REF14894 ':FLOAT)
                              (COLCND-REF14895 ':FLOAT)
                              (AMAX-REF14896 ':FLOAT)
                              (INFO-REF14897 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14886 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14887 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF14888 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF14889 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14891 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF14894 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF14895 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF14896 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14897 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14890 AB)
                                            (R-REF14892 R)
                                            (C-REF14893 C))
      (%%SGBEQUB M-REF14886 N-REF14887 KL-REF14888 KU-REF14889
       AB-REF14890 LDAB-REF14891 R-REF14892 C-REF14893 ROWCND-REF14894
       COLCND-REF14895 AMAX-REF14896 INFO-REF14897))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEGV_2STAGE "chegv_2stage_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEGV_2STAGE
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGV_2STAGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF14898 ':INT32)
                              (N-REF14901 ':INT32)
                              (LDA-REF14903 ':INT32)
                              (LDB-REF14905 ':INT32)
                              (LWORK-REF14908 ':INT32)
                              (INFO-REF14910 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF14898 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14901 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14903 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14905 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14908 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14910 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14902 A)
                                            (B-REF14904 B)
                                            (W-REF14906 W)
                                            (WORK-REF14907 WORK)
                                            (RWORK-REF14909 RWORK))
      (%%CHEGV_2STAGE ITYPE-REF14898 JOBZ UPLO N-REF14901 A-REF14902
       LDA-REF14903 B-REF14904 LDB-REF14905 W-REF14906 WORK-REF14907
       LWORK-REF14908 RWORK-REF14909 INFO-REF14910))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARUV "slaruv_")
  ((ISEED :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARUV (ISEED N X)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARUV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISEED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14912 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14912 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ISEED-REF14911 ISEED)
                                            (X-REF14913 X))
      (%%SLARUV ISEED-REF14911 N-REF14912 X-REF14913))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEEV_2STAGE "cheev_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEEV_2STAGE
    (JOBZ UPLO N A LDA W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEV_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14916 ':INT32)
                              (LDA-REF14918 ':INT32)
                              (LWORK-REF14921 ':INT32)
                              (INFO-REF14923 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14916 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14918 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14921 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14923 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14917 A)
                                            (W-REF14919 W)
                                            (WORK-REF14920 WORK)
                                            (RWORK-REF14922 RWORK))
      (%%CHEEV_2STAGE JOBZ UPLO N-REF14916 A-REF14917 LDA-REF14918
       W-REF14919 WORK-REF14920 LWORK-REF14921 RWORK-REF14922
       INFO-REF14923))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNBDB4 "zunbdb4_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (PHANTOM :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNBDB4
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 PHANTOM WORK
     LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    PHANTOM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14924 ':INT32) (P-REF14925 ':INT32)
                              (Q-REF14926 ':INT32)
                              (LDX11-REF14928 ':INT32)
                              (LDX21-REF14930 ':INT32)
                              (LWORK-REF14938 ':INT32)
                              (INFO-REF14939 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14924 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF14925 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF14926 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF14928 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF14930 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF14938 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14939 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF14927 X11)
                                            (X21-REF14929 X21)
                                            (THETA-REF14931 THETA)
                                            (PHI-REF14932 PHI)
                                            (TAUP1-REF14933 TAUP1)
                                            (TAUP2-REF14934 TAUP2)
                                            (TAUQ1-REF14935 TAUQ1)
                                            (PHANTOM-REF14936 PHANTOM)
                                            (WORK-REF14937 WORK))
      (%%ZUNBDB4 M-REF14924 P-REF14925 Q-REF14926 X11-REF14927
       LDX11-REF14928 X21-REF14929 LDX21-REF14930 THETA-REF14931
       PHI-REF14932 TAUP1-REF14933 TAUP2-REF14934 TAUQ1-REF14935
       PHANTOM-REF14936 WORK-REF14937 LWORK-REF14938 INFO-REF14939))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBEV "chbev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBEV
    (JOBZ UPLO N KD AB LDAB W Z LDZ WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14942 ':INT32)
                              (KD-REF14943 ':INT32)
                              (LDAB-REF14945 ':INT32)
                              (LDZ-REF14948 ':INT32)
                              (INFO-REF14951 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14942 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF14943 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF14945 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF14948 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14951 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF14944 AB)
                                            (W-REF14946 W)
                                            (Z-REF14947 Z)
                                            (WORK-REF14949 WORK)
                                            (RWORK-REF14950 RWORK))
      (%%CHBEV JOBZ UPLO N-REF14942 KD-REF14943 AB-REF14944
       LDAB-REF14945 W-REF14946 Z-REF14947 LDZ-REF14948 WORK-REF14949
       RWORK-REF14950 INFO-REF14951))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANTR "clantr_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANTR (NORM UPLO DIAG M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14955 ':INT32) (N-REF14956 ':INT32)
                              (LDA-REF14958 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14955 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14956 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14958 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14957 A)
                                            (WORK-REF14959 WORK))
      (%%CLANTR NORM UPLO DIAG M-REF14955 N-REF14956 A-REF14957
       LDA-REF14958 WORK-REF14959))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLALN2 "slaln2_")
  ((LTRANS :FOREIGN-ADDRESS) (NA :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (SMIN :FOREIGN-ADDRESS) (CA :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D1 :FOREIGN-ADDRESS)
   (D2 :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WR :FOREIGN-ADDRESS) (WI :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS)
   (XNORM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLALN2
    (LTRANS NA NW SMIN CA A LDA D1 D2 B LDB WR WI X LDX SCALE XNORM
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLALN2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LTRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT D2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WR)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT WI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT XNORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((LTRANS-REF14960 ':INT32)
                              (NA-REF14961 ':INT32)
                              (NW-REF14962 ':INT32)
                              (SMIN-REF14963 ':FLOAT)
                              (CA-REF14964 ':FLOAT)
                              (LDA-REF14966 ':INT32)
                              (D1-REF14967 ':FLOAT)
                              (D2-REF14968 ':FLOAT)
                              (LDB-REF14970 ':INT32)
                              (WR-REF14971 ':FLOAT)
                              (WI-REF14972 ':FLOAT)
                              (LDX-REF14974 ':INT32)
                              (SCALE-REF14975 ':FLOAT)
                              (XNORM-REF14976 ':FLOAT)
                              (INFO-REF14977 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF LTRANS-REF14960 :INT32) LTRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NA-REF14961 :INT32) NA)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF14962 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMIN-REF14963 :FLOAT) SMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF CA-REF14964 :FLOAT) CA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14966 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF D1-REF14967 :FLOAT) D1)
    (COMMON-LISP:SETF (CFFI:MEM-REF D2-REF14968 :FLOAT) D2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14970 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WR-REF14971 :FLOAT) WR)
    (COMMON-LISP:SETF (CFFI:MEM-REF WI-REF14972 :FLOAT) WI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF14974 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF14975 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF XNORM-REF14976 :FLOAT) XNORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14977 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14965 A)
                                            (B-REF14969 B)
                                            (X-REF14973 X))
      (%%SLALN2 LTRANS-REF14960 NA-REF14961 NW-REF14962 SMIN-REF14963
       CA-REF14964 A-REF14965 LDA-REF14966 D1-REF14967 D2-REF14968
       B-REF14969 LDB-REF14970 WR-REF14971 WI-REF14972 X-REF14973
       LDX-REF14974 SCALE-REF14975 XNORM-REF14976 INFO-REF14977))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAUUM "slauum_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAUUM (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAUUM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14979 ':INT32)
                              (LDA-REF14981 ':INT32)
                              (INFO-REF14982 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14979 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14981 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14982 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14980 A))
      (%%SLAUUM UPLO N-REF14979 A-REF14980 LDA-REF14981
       INFO-REF14982))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%ZLAUNHR_COL_GETRFNP2 "zlaunhr_col_getrfnp2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAUNHR_COL_GETRFNP2 (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAUNHR_COL_GETRFNP2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF14983 ':INT32) (N-REF14984 ':INT32)
                              (LDA-REF14986 ':INT32)
                              (INFO-REF14988 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF14983 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14984 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14986 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF14988 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14985 A)
                                            (D-REF14987 D))
      (%%ZLAUNHR_COL_GETRFNP2 M-REF14983 N-REF14984 A-REF14985
       LDA-REF14986 D-REF14987 INFO-REF14988))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_WWADDW "dla_wwaddw_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_WWADDW (N X Y W)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_WWADDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF14989 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14989 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF14990 X)
                                            (Y-REF14991 Y)
                                            (W-REF14992 W))
      (%%DLA_WWADDW N-REF14989 X-REF14990 Y-REF14991 W-REF14992))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTGEXC "dtgexc_")
  ((WANTQ :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (IFST :FOREIGN-ADDRESS) (ILST :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTGEXC
    (WANTQ WANTZ N A LDA B LDB Q LDQ Z LDZ IFST ILST WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGEXC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTQ-REF14993 ':INT32)
                              (WANTZ-REF14994 ':INT32)
                              (N-REF14995 ':INT32)
                              (LDA-REF14997 ':INT32)
                              (LDB-REF14999 ':INT32)
                              (LDQ-REF15001 ':INT32)
                              (LDZ-REF15003 ':INT32)
                              (IFST-REF15004 ':INT32)
                              (ILST-REF15005 ':INT32)
                              (LWORK-REF15007 ':INT32)
                              (INFO-REF15008 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF14993 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF14994 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF14995 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF14997 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF14999 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15001 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15003 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF15004 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF15005 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15007 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15008 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF14996 A)
                                            (B-REF14998 B)
                                            (Q-REF15000 Q)
                                            (Z-REF15002 Z)
                                            (WORK-REF15006 WORK))
      (%%DTGEXC WANTQ-REF14993 WANTZ-REF14994 N-REF14995 A-REF14996
       LDA-REF14997 B-REF14998 LDB-REF14999 Q-REF15000 LDQ-REF15001
       Z-REF15002 LDZ-REF15003 IFST-REF15004 ILST-REF15005
       WORK-REF15006 LWORK-REF15007 INFO-REF15008))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEBZ "dstebz_")
  ((RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (ORDER (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (NSPLIT :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (IBLOCK :FOREIGN-ADDRESS) (ISPLIT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEBZ
    (RANGE ORDER N VL VU IL IU ABSTOL D E M NSPLIT W IBLOCK ISPLIT WORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING ORDER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15011 ':INT32)
                              (VL-REF15012 ':DOUBLE)
                              (VU-REF15013 ':DOUBLE)
                              (IL-REF15014 ':INT32)
                              (IU-REF15015 ':INT32)
                              (ABSTOL-REF15016 ':DOUBLE)
                              (M-REF15019 ':INT32)
                              (NSPLIT-REF15020 ':INT32)
                              (INFO-REF15026 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15011 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15012 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15013 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15014 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15015 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15016 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15019 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSPLIT-REF15020 :INT32) NSPLIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15026 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15017 D)
                                            (E-REF15018 E)
                                            (W-REF15021 W)
                                            (IBLOCK-REF15022 IBLOCK)
                                            (ISPLIT-REF15023 ISPLIT)
                                            (WORK-REF15024 WORK)
                                            (IWORK-REF15025 IWORK))
      (%%DSTEBZ RANGE ORDER N-REF15011 VL-REF15012 VU-REF15013
       IL-REF15014 IU-REF15015 ABSTOL-REF15016 D-REF15017 E-REF15018
       M-REF15019 NSPLIT-REF15020 W-REF15021 IBLOCK-REF15022
       ISPLIT-REF15023 WORK-REF15024 IWORK-REF15025 INFO-REF15026))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPBTRF "cpbtrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPBTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15028 ':INT32)
                              (KD-REF15029 ':INT32)
                              (LDAB-REF15031 ':INT32)
                              (INFO-REF15032 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15028 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15029 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15031 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15032 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15030 AB))
      (%%CPBTRF UPLO N-REF15028 KD-REF15029 AB-REF15030 LDAB-REF15031
       INFO-REF15032))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_GBRCOND "sla_gbrcond_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (CMODE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_GBRCOND
    (TRANS N KL KU AB LDAB AFB LDAFB IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRCOND)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15034 ':INT32)
                              (KL-REF15035 ':INT32)
                              (KU-REF15036 ':INT32)
                              (LDAB-REF15038 ':INT32)
                              (LDAFB-REF15040 ':INT32)
                              (CMODE-REF15042 ':INT32)
                              (INFO-REF15044 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15034 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF15035 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF15036 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15038 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF15040 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF15042 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15044 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15037 AB)
                                            (AFB-REF15039 AFB)
                                            (IPIV-REF15041 IPIV)
                                            (C-REF15043 C)
                                            (WORK-REF15045 WORK)
                                            (IWORK-REF15046 IWORK))
      (%%SLA_GBRCOND TRANS N-REF15034 KL-REF15035 KU-REF15036
       AB-REF15037 LDAB-REF15038 AFB-REF15039 LDAFB-REF15040
       IPIV-REF15041 CMODE-REF15042 C-REF15043 INFO-REF15044
       WORK-REF15045 IWORK-REF15046))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORGRQ "sorgrq_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORGRQ (M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGRQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15047 ':INT32) (N-REF15048 ':INT32)
                              (K-REF15049 ':INT32)
                              (LDA-REF15051 ':INT32)
                              (LWORK-REF15054 ':INT32)
                              (INFO-REF15055 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15047 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15048 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15049 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15051 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15054 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15055 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15050 A)
                                            (TAU-REF15052 TAU)
                                            (WORK-REF15053 WORK))
      (%%SORGRQ M-REF15047 N-REF15048 K-REF15049 A-REF15050
       LDA-REF15051 TAU-REF15052 WORK-REF15053 LWORK-REF15054
       INFO-REF15055))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGESVX "dgesvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGESVX
    (FACT TRANS N NRHS A LDA AF LDAF IPIV EQUED R C B LDB X LDX RCOND
     FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGESVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15058 ':INT32)
                              (NRHS-REF15059 ':INT32)
                              (LDA-REF15061 ':INT32)
                              (LDAF-REF15063 ':INT32)
                              (LDB-REF15069 ':INT32)
                              (LDX-REF15071 ':INT32)
                              (RCOND-REF15072 ':DOUBLE)
                              (INFO-REF15077 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15059 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15061 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15063 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15069 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15071 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15072 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15077 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15060 A)
                                            (AF-REF15062 AF)
                                            (IPIV-REF15064 IPIV)
                                            (R-REF15066 R)
                                            (C-REF15067 C)
                                            (B-REF15068 B)
                                            (X-REF15070 X)
                                            (FERR-REF15073 FERR)
                                            (BERR-REF15074 BERR)
                                            (WORK-REF15075 WORK)
                                            (IWORK-REF15076 IWORK))
      (%%DGESVX FACT TRANS N-REF15058 NRHS-REF15059 A-REF15060
       LDA-REF15061 AF-REF15062 LDAF-REF15063 IPIV-REF15064 EQUED
       R-REF15066 C-REF15067 B-REF15068 LDB-REF15069 X-REF15070
       LDX-REF15071 RCOND-REF15072 FERR-REF15073 BERR-REF15074
       WORK-REF15075 IWORK-REF15076 INFO-REF15077))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRC "slarrc_")
  ((JOBT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (EIGCNT :FOREIGN-ADDRESS) (LCNT :FOREIGN-ADDRESS)
   (RCNT :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRC
    (JOBT N VL VU D E PIVMIN EIGCNT LCNT RCNT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) EIGCNT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCNT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RCNT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15079 ':INT32)
                              (VL-REF15080 ':FLOAT)
                              (VU-REF15081 ':FLOAT)
                              (PIVMIN-REF15084 ':FLOAT)
                              (EIGCNT-REF15085 ':INT32)
                              (LCNT-REF15086 ':INT32)
                              (RCNT-REF15087 ':INT32)
                              (INFO-REF15088 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15079 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15080 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15081 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF15084 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF EIGCNT-REF15085 :INT32) EIGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCNT-REF15086 :INT32) LCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCNT-REF15087 :INT32) RCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15088 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15082 D)
                                            (E-REF15083 E))
      (%%SLARRC JOBT N-REF15079 VL-REF15080 VU-REF15081 D-REF15082
       E-REF15083 PIVMIN-REF15084 EIGCNT-REF15085 LCNT-REF15086
       RCNT-REF15087 INFO-REF15088))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHGEQZ "chgeqz_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHGEQZ
    (JOB COMPQ COMPZ N ILO IHI H LDH T LDT ALPHA BETA Q LDQ Z LDZ WORK
     LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHGEQZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15092 ':INT32)
                              (ILO-REF15093 ':INT32)
                              (IHI-REF15094 ':INT32)
                              (LDH-REF15096 ':INT32)
                              (LDT-REF15098 ':INT32)
                              (LDQ-REF15102 ':INT32)
                              (LDZ-REF15104 ':INT32)
                              (LWORK-REF15106 ':INT32)
                              (INFO-REF15108 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15092 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15093 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15094 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF15096 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15098 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15102 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15104 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15106 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15108 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF15095 H)
                                            (T-REF15097 T)
                                            (ALPHA-REF15099 ALPHA)
                                            (BETA-REF15100 BETA)
                                            (Q-REF15101 Q)
                                            (Z-REF15103 Z)
                                            (WORK-REF15105 WORK)
                                            (RWORK-REF15107 RWORK))
      (%%CHGEQZ JOB COMPQ COMPZ N-REF15092 ILO-REF15093 IHI-REF15094
       H-REF15095 LDH-REF15096 T-REF15097 LDT-REF15098 ALPHA-REF15099
       BETA-REF15100 Q-REF15101 LDQ-REF15102 Z-REF15103 LDZ-REF15104
       WORK-REF15105 LWORK-REF15106 RWORK-REF15107 INFO-REF15108))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTZRZF "ztzrzf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTZRZF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTZRZF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15109 ':INT32) (N-REF15110 ':INT32)
                              (LDA-REF15112 ':INT32)
                              (LWORK-REF15115 ':INT32)
                              (INFO-REF15116 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15109 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15110 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15112 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15115 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15116 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15111 A)
                                            (TAU-REF15113 TAU)
                                            (WORK-REF15114 WORK))
      (%%ZTZRZF M-REF15109 N-REF15110 A-REF15111 LDA-REF15112
       TAU-REF15113 WORK-REF15114 LWORK-REF15115 INFO-REF15116))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPPEQU "zppequ_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPEQU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15118 ':INT32)
                              (SCOND-REF15121 ':DOUBLE)
                              (AMAX-REF15122 ':DOUBLE)
                              (INFO-REF15123 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15118 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15121 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15122 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15123 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15119 AP)
                                            (S-REF15120 S))
      (%%ZPPEQU UPLO N-REF15118 AP-REF15119 S-REF15120 SCOND-REF15121
       AMAX-REF15122 INFO-REF15123))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORBDB6 "dorbdb6_")
  ((M1 :FOREIGN-ADDRESS) (M2 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X1 :FOREIGN-ADDRESS) (INCX1 :FOREIGN-ADDRESS) (X2 :FOREIGN-ADDRESS)
   (INCX2 :FOREIGN-ADDRESS) (Q1 :FOREIGN-ADDRESS)
   (LDQ1 :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORBDB6
    (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF15124 ':INT32)
                              (M2-REF15125 ':INT32)
                              (N-REF15126 ':INT32)
                              (INCX1-REF15128 ':INT32)
                              (INCX2-REF15130 ':INT32)
                              (LDQ1-REF15132 ':INT32)
                              (LDQ2-REF15134 ':INT32)
                              (LWORK-REF15136 ':INT32)
                              (INFO-REF15137 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF15124 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF15125 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15126 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15128 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15130 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15132 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15134 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15136 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15137 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15127 X1)
                                            (X2-REF15129 X2)
                                            (Q1-REF15131 Q1)
                                            (Q2-REF15133 Q2)
                                            (WORK-REF15135 WORK))
      (%%DORBDB6 M1-REF15124 M2-REF15125 N-REF15126 X1-REF15127
       INCX1-REF15128 X2-REF15129 INCX2-REF15130 Q1-REF15131
       LDQ1-REF15132 Q2-REF15133 LDQ2-REF15134 WORK-REF15135
       LWORK-REF15136 INFO-REF15137))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPTTS2 "sptts2_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPTTS2 (N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTTS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15138 ':INT32)
                              (NRHS-REF15139 ':INT32)
                              (LDB-REF15143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15138 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15139 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15143 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15140 D)
                                            (E-REF15141 E)
                                            (B-REF15142 B))
      (%%SPTTS2 N-REF15138 NRHS-REF15139 D-REF15140 E-REF15141
       B-REF15142 LDB-REF15143))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYCON_ROOK "ssycon_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYCON_ROOK
    (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15145 ':INT32)
                              (LDA-REF15147 ':INT32)
                              (ANORM-REF15149 ':FLOAT)
                              (RCOND-REF15150 ':FLOAT)
                              (INFO-REF15153 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15147 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15149 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15150 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15153 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15146 A)
                                            (IPIV-REF15148 IPIV)
                                            (WORK-REF15151 WORK)
                                            (IWORK-REF15152 IWORK))
      (%%SSYCON_ROOK UPLO N-REF15145 A-REF15146 LDA-REF15147
       IPIV-REF15148 ANORM-REF15149 RCOND-REF15150 WORK-REF15151
       IWORK-REF15152 INFO-REF15153))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSPSV "cspsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSPSV (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15155 ':INT32)
                              (NRHS-REF15156 ':INT32)
                              (LDB-REF15160 ':INT32)
                              (INFO-REF15161 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15155 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15156 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15160 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15161 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15157 AP)
                                            (IPIV-REF15158 IPIV)
                                            (B-REF15159 B))
      (%%CSPSV UPLO N-REF15155 NRHS-REF15156 AP-REF15157 IPIV-REF15158
       B-REF15159 LDB-REF15160 INFO-REF15161))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEJSV "sgejsv_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBP (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SVA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEJSV
    (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV WORK LWORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEJSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SVA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15168 ':INT32) (N-REF15169 ':INT32)
                              (LDA-REF15171 ':INT32)
                              (LDU-REF15174 ':INT32)
                              (LDV-REF15176 ':INT32)
                              (LWORK-REF15178 ':INT32)
                              (INFO-REF15180 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15168 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15169 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15171 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF15174 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF15176 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15178 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15180 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15170 A)
                                            (SVA-REF15172 SVA)
                                            (U-REF15173 U)
                                            (V-REF15175 V)
                                            (WORK-REF15177 WORK)
                                            (IWORK-REF15179 IWORK))
      (%%SGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF15168 N-REF15169
       A-REF15170 LDA-REF15171 SVA-REF15172 U-REF15173 LDU-REF15174
       V-REF15175 LDV-REF15176 WORK-REF15177 LWORK-REF15178
       IWORK-REF15179 INFO-REF15180))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANGE "zlange_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANGE (NORM M N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15182 ':INT32) (N-REF15183 ':INT32)
                              (LDA-REF15185 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15182 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15183 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15185 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15184 A)
                                            (WORK-REF15186 WORK))
      (%%ZLANGE NORM M-REF15182 N-REF15183 A-REF15184 LDA-REF15185
       WORK-REF15186))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPGV "sspgv_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPGV (ITYPE JOBZ UPLO N AP BP W Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF15187 ':INT32)
                              (N-REF15190 ':INT32)
                              (LDZ-REF15195 ':INT32)
                              (INFO-REF15197 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF15187 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15190 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15195 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15197 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15191 AP)
                                            (BP-REF15192 BP)
                                            (W-REF15193 W)
                                            (Z-REF15194 Z)
                                            (WORK-REF15196 WORK))
      (%%SSPGV ITYPE-REF15187 JOBZ UPLO N-REF15190 AP-REF15191
       BP-REF15192 W-REF15193 Z-REF15194 LDZ-REF15195 WORK-REF15196
       INFO-REF15197))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRI_3 "zhetri_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRI_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15199 ':INT32)
                              (LDA-REF15201 ':INT32)
                              (LWORK-REF15205 ':INT32)
                              (INFO-REF15206 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15199 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15201 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15205 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15206 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15200 A)
                                            (E-REF15202 E)
                                            (IPIV-REF15203 IPIV)
                                            (WORK-REF15204 WORK))
      (%%ZHETRI_3 UPLO N-REF15199 A-REF15200 LDA-REF15201 E-REF15202
       IPIV-REF15203 WORK-REF15204 LWORK-REF15205 INFO-REF15206))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHECON_ROOK "checon_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHECON_ROOK
    (UPLO N A LDA IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHECON_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15208 ':INT32)
                              (LDA-REF15210 ':INT32)
                              (ANORM-REF15212 ':FLOAT)
                              (RCOND-REF15213 ':FLOAT)
                              (INFO-REF15215 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15208 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15210 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15212 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15213 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15215 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15209 A)
                                            (IPIV-REF15211 IPIV)
                                            (WORK-REF15214 WORK))
      (%%CHECON_ROOK UPLO N-REF15208 A-REF15209 LDA-REF15210
       IPIV-REF15211 ANORM-REF15212 RCOND-REF15213 WORK-REF15214
       INFO-REF15215))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEBD2 "sgebd2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEBD2 (M N A LDA D E TAUQ TAUP WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEBD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15216 ':INT32) (N-REF15217 ':INT32)
                              (LDA-REF15219 ':INT32)
                              (INFO-REF15225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15216 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15217 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15219 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15225 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15218 A)
                                            (D-REF15220 D)
                                            (E-REF15221 E)
                                            (TAUQ-REF15222 TAUQ)
                                            (TAUP-REF15223 TAUP)
                                            (WORK-REF15224 WORK))
      (%%SGEBD2 M-REF15216 N-REF15217 A-REF15218 LDA-REF15219
       D-REF15220 E-REF15221 TAUQ-REF15222 TAUP-REF15223 WORK-REF15224
       INFO-REF15225))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPGVX "sspgvx_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPGVX
    (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ WORK
     IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPGVX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF15226 ':INT32)
                              (N-REF15230 ':INT32)
                              (VL-REF15233 ':FLOAT)
                              (VU-REF15234 ':FLOAT)
                              (IL-REF15235 ':INT32)
                              (IU-REF15236 ':INT32)
                              (ABSTOL-REF15237 ':FLOAT)
                              (M-REF15238 ':INT32)
                              (LDZ-REF15241 ':INT32)
                              (INFO-REF15245 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF15226 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15230 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15233 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15234 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15235 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15236 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15237 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15238 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15241 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15245 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15231 AP)
                                            (BP-REF15232 BP)
                                            (W-REF15239 W)
                                            (Z-REF15240 Z)
                                            (WORK-REF15242 WORK)
                                            (IWORK-REF15243 IWORK)
                                            (IFAIL-REF15244 IFAIL))
      (%%SSPGVX ITYPE-REF15226 JOBZ RANGE UPLO N-REF15230 AP-REF15231
       BP-REF15232 VL-REF15233 VU-REF15234 IL-REF15235 IU-REF15236
       ABSTOL-REF15237 M-REF15238 W-REF15239 Z-REF15240 LDZ-REF15241
       WORK-REF15242 IWORK-REF15243 IFAIL-REF15244 INFO-REF15245))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEQRT "cgeqrt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEQRT (M N NB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQRT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15246 ':INT32) (N-REF15247 ':INT32)
                              (NB-REF15248 ':INT32)
                              (LDA-REF15250 ':INT32)
                              (LDT-REF15252 ':INT32)
                              (INFO-REF15254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15246 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15247 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15248 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15250 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15252 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15254 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15249 A)
                                            (T-REF15251 T)
                                            (WORK-REF15253 WORK))
      (%%CGEQRT M-REF15246 N-REF15247 NB-REF15248 A-REF15249
       LDA-REF15250 T-REF15251 LDT-REF15252 WORK-REF15253
       INFO-REF15254))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGESX "dggesx_")
  ((JOBVSL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SORT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELCTG :FOREIGN-ADDRESS)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (SDIM :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VSL :FOREIGN-ADDRESS)
   (LDVSL :FOREIGN-ADDRESS) (VSR :FOREIGN-ADDRESS)
   (LDVSR :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (BWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGESX
    (JOBVSL JOBVSR SORT SELCTG SENSE N A LDA B LDB SDIM ALPHAR ALPHAI
     BETA VSL LDVSL VSR LDVSR RCONDE RCONDV WORK LWORK IWORK LIWORK
     BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGESX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SORT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SELCTG)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SDIM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VSL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VSR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVSR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SELCTG-REF15258 ':INT32)
                              (N-REF15260 ':INT32)
                              (LDA-REF15262 ':INT32)
                              (LDB-REF15264 ':INT32)
                              (SDIM-REF15265 ':INT32)
                              (LDVSL-REF15270 ':INT32)
                              (LDVSR-REF15272 ':INT32)
                              (LWORK-REF15276 ':INT32)
                              (LIWORK-REF15278 ':INT32)
                              (INFO-REF15280 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SELCTG-REF15258 :INT32) SELCTG)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15260 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15262 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15264 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SDIM-REF15265 :INT32) SDIM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSL-REF15270 :INT32) LDVSL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVSR-REF15272 :INT32) LDVSR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15276 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15278 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15280 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15261 A)
                                            (B-REF15263 B)
                                            (ALPHAR-REF15266 ALPHAR)
                                            (ALPHAI-REF15267 ALPHAI)
                                            (BETA-REF15268 BETA)
                                            (VSL-REF15269 VSL)
                                            (VSR-REF15271 VSR)
                                            (RCONDE-REF15273 RCONDE)
                                            (RCONDV-REF15274 RCONDV)
                                            (WORK-REF15275 WORK)
                                            (IWORK-REF15277 IWORK)
                                            (BWORK-REF15279 BWORK))
      (%%DGGESX JOBVSL JOBVSR SORT SELCTG-REF15258 SENSE N-REF15260
       A-REF15261 LDA-REF15262 B-REF15263 LDB-REF15264 SDIM-REF15265
       ALPHAR-REF15266 ALPHAI-REF15267 BETA-REF15268 VSL-REF15269
       LDVSL-REF15270 VSR-REF15271 LDVSR-REF15272 RCONDE-REF15273
       RCONDV-REF15274 WORK-REF15275 LWORK-REF15276 IWORK-REF15277
       LIWORK-REF15278 BWORK-REF15279 INFO-REF15280))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQR0 "zlaqr0_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQR0
    (WANTT WANTZ N ILO IHI H LDH W ILOZ IHIZ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF15281 ':INT32)
                              (WANTZ-REF15282 ':INT32)
                              (N-REF15283 ':INT32)
                              (ILO-REF15284 ':INT32)
                              (IHI-REF15285 ':INT32)
                              (LDH-REF15287 ':INT32)
                              (ILOZ-REF15289 ':INT32)
                              (IHIZ-REF15290 ':INT32)
                              (LDZ-REF15292 ':INT32)
                              (LWORK-REF15294 ':INT32)
                              (INFO-REF15295 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF15281 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF15282 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF15284 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF15285 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF15287 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF15289 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF15290 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15292 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15294 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15295 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF15286 H)
                                            (W-REF15288 W)
                                            (Z-REF15291 Z)
                                            (WORK-REF15293 WORK))
      (%%ZLAQR0 WANTT-REF15281 WANTZ-REF15282 N-REF15283 ILO-REF15284
       IHI-REF15285 H-REF15286 LDH-REF15287 W-REF15288 ILOZ-REF15289
       IHIZ-REF15290 Z-REF15291 LDZ-REF15292 WORK-REF15293
       LWORK-REF15294 INFO-REF15295))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORML2 "dorml2_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORML2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15298 ':INT32) (N-REF15299 ':INT32)
                              (K-REF15300 ':INT32)
                              (LDA-REF15302 ':INT32)
                              (LDC-REF15305 ':INT32)
                              (INFO-REF15307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15298 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15299 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15300 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15302 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15305 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15307 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15301 A)
                                            (TAU-REF15303 TAU)
                                            (C-REF15304 C)
                                            (WORK-REF15306 WORK))
      (%%DORML2 SIDE TRANS M-REF15298 N-REF15299 K-REF15300 A-REF15301
       LDA-REF15302 TAU-REF15303 C-REF15304 LDC-REF15305 WORK-REF15306
       INFO-REF15307))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORBDB3 "sorbdb3_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORBDB3
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15308 ':INT32) (P-REF15309 ':INT32)
                              (Q-REF15310 ':INT32)
                              (LDX11-REF15312 ':INT32)
                              (LDX21-REF15314 ':INT32)
                              (LWORK-REF15321 ':INT32)
                              (INFO-REF15322 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15308 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15309 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15310 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15312 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15314 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15321 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15322 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15311 X11)
                                            (X21-REF15313 X21)
                                            (THETA-REF15315 THETA)
                                            (PHI-REF15316 PHI)
                                            (TAUP1-REF15317 TAUP1)
                                            (TAUP2-REF15318 TAUP2)
                                            (TAUQ1-REF15319 TAUQ1)
                                            (WORK-REF15320 WORK))
      (%%SORBDB3 M-REF15308 P-REF15309 Q-REF15310 X11-REF15311
       LDX11-REF15312 X21-REF15313 LDX21-REF15314 THETA-REF15315
       PHI-REF15316 TAUP1-REF15317 TAUP2-REF15318 TAUQ1-REF15319
       WORK-REF15320 LWORK-REF15321 INFO-REF15322))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANHE "clanhe_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANHE (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANHE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15325 ':INT32)
                              (LDA-REF15327 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15325 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15327 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15326 A)
                                            (WORK-REF15328 WORK))
      (%%CLANHE NORM UPLO N-REF15325 A-REF15326 LDA-REF15327
       WORK-REF15328))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEQLF "cgeqlf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEQLF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQLF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15329 ':INT32) (N-REF15330 ':INT32)
                              (LDA-REF15332 ':INT32)
                              (LWORK-REF15335 ':INT32)
                              (INFO-REF15336 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15329 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15330 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15332 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15335 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15336 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15331 A)
                                            (TAU-REF15333 TAU)
                                            (WORK-REF15334 WORK))
      (%%CGEQLF M-REF15329 N-REF15330 A-REF15331 LDA-REF15332
       TAU-REF15333 WORK-REF15334 LWORK-REF15335 INFO-REF15336))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASYF_ROOK "clasyf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASYF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15338 ':INT32)
                              (NB-REF15339 ':INT32)
                              (KB-REF15340 ':INT32)
                              (LDA-REF15342 ':INT32)
                              (LDW-REF15345 ':INT32)
                              (INFO-REF15346 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15338 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15339 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF15340 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15342 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF15345 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15346 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15341 A)
                                            (IPIV-REF15343 IPIV)
                                            (W-REF15344 W))
      (%%CLASYF_ROOK UPLO N-REF15338 NB-REF15339 KB-REF15340 A-REF15341
       LDA-REF15342 IPIV-REF15343 W-REF15344 LDW-REF15345
       INFO-REF15346))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEGV "chegv_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEGV
    (ITYPE JOBZ UPLO N A LDA B LDB W WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEGV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF15347 ':INT32)
                              (N-REF15350 ':INT32)
                              (LDA-REF15352 ':INT32)
                              (LDB-REF15354 ':INT32)
                              (LWORK-REF15357 ':INT32)
                              (INFO-REF15359 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF15347 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15350 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15352 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15354 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15357 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15359 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15351 A)
                                            (B-REF15353 B)
                                            (W-REF15355 W)
                                            (WORK-REF15356 WORK)
                                            (RWORK-REF15358 RWORK))
      (%%CHEGV ITYPE-REF15347 JOBZ UPLO N-REF15350 A-REF15351
       LDA-REF15352 B-REF15353 LDB-REF15354 W-REF15355 WORK-REF15356
       LWORK-REF15357 RWORK-REF15358 INFO-REF15359))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYCONVF_ROOK "zsyconvf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYCONVF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15362 ':INT32)
                              (LDA-REF15364 ':INT32)
                              (INFO-REF15367 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15362 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15364 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15367 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15363 A)
                                            (E-REF15365 E)
                                            (IPIV-REF15366 IPIV))
      (%%ZSYCONVF_ROOK UPLO WAY N-REF15362 A-REF15363 LDA-REF15364
       E-REF15365 IPIV-REF15366 INFO-REF15367))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOCON "cpocon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOCON (UPLO N A LDA ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15369 ':INT32)
                              (LDA-REF15371 ':INT32)
                              (ANORM-REF15372 ':FLOAT)
                              (RCOND-REF15373 ':FLOAT)
                              (INFO-REF15376 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15369 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15371 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF15372 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15373 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15376 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15370 A)
                                            (WORK-REF15374 WORK)
                                            (RWORK-REF15375 RWORK))
      (%%CPOCON UPLO N-REF15369 A-REF15370 LDA-REF15371 ANORM-REF15372
       RCOND-REF15373 WORK-REF15374 RWORK-REF15375 INFO-REF15376))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPGVX "dspgvx_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPGVX
    (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ WORK
     IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPGVX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF15377 ':INT32)
                              (N-REF15381 ':INT32)
                              (VL-REF15384 ':DOUBLE)
                              (VU-REF15385 ':DOUBLE)
                              (IL-REF15386 ':INT32)
                              (IU-REF15387 ':INT32)
                              (ABSTOL-REF15388 ':DOUBLE)
                              (M-REF15389 ':INT32)
                              (LDZ-REF15392 ':INT32)
                              (INFO-REF15396 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF15377 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15381 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15384 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15385 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15386 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15387 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15388 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15389 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15392 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15396 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15382 AP)
                                            (BP-REF15383 BP)
                                            (W-REF15390 W)
                                            (Z-REF15391 Z)
                                            (WORK-REF15393 WORK)
                                            (IWORK-REF15394 IWORK)
                                            (IFAIL-REF15395 IFAIL))
      (%%DSPGVX ITYPE-REF15377 JOBZ RANGE UPLO N-REF15381 AP-REF15382
       BP-REF15383 VL-REF15384 VU-REF15385 IL-REF15386 IU-REF15387
       ABSTOL-REF15388 M-REF15389 W-REF15390 Z-REF15391 LDZ-REF15392
       WORK-REF15393 IWORK-REF15394 IFAIL-REF15395 INFO-REF15396))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNMR3 "zunmr3_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNMR3
    (SIDE TRANS M N K L A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNMR3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15399 ':INT32) (N-REF15400 ':INT32)
                              (K-REF15401 ':INT32) (L-REF15402 ':INT32)
                              (LDA-REF15404 ':INT32)
                              (LDC-REF15407 ':INT32)
                              (INFO-REF15409 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15399 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15400 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15401 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15402 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15404 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15407 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15409 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15403 A)
                                            (TAU-REF15405 TAU)
                                            (C-REF15406 C)
                                            (WORK-REF15408 WORK))
      (%%ZUNMR3 SIDE TRANS M-REF15399 N-REF15400 K-REF15401 L-REF15402
       A-REF15403 LDA-REF15404 TAU-REF15405 C-REF15406 LDC-REF15407
       WORK-REF15408 INFO-REF15409))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRTRS "dtrtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15413 ':INT32)
                              (NRHS-REF15414 ':INT32)
                              (LDA-REF15416 ':INT32)
                              (LDB-REF15418 ':INT32)
                              (INFO-REF15419 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15413 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15414 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15416 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15418 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15419 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15415 A)
                                            (B-REF15417 B))
      (%%DTRTRS UPLO TRANS DIAG N-REF15413 NRHS-REF15414 A-REF15415
       LDA-REF15416 B-REF15417 LDB-REF15418 INFO-REF15419))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARTV "clartv_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARTV (N X INCX Y INCY C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARTV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15420 ':INT32)
                              (INCX-REF15422 ':INT32)
                              (INCY-REF15424 ':INT32)
                              (INCC-REF15427 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15420 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF15422 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF15424 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF15427 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF15421 X)
                                            (Y-REF15423 Y)
                                            (C-REF15425 C)
                                            (S-REF15426 S))
      (%%CLARTV N-REF15420 X-REF15421 INCX-REF15422 Y-REF15423
       INCY-REF15424 C-REF15425 S-REF15426 INCC-REF15427))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYEQUB "csyequb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYEQUB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15429 ':INT32)
                              (LDA-REF15431 ':INT32)
                              (SCOND-REF15433 ':FLOAT)
                              (AMAX-REF15434 ':FLOAT)
                              (INFO-REF15436 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15429 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15431 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15433 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15434 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15436 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15430 A)
                                            (S-REF15432 S)
                                            (WORK-REF15435 WORK))
      (%%CSYEQUB UPLO N-REF15429 A-REF15430 LDA-REF15431 S-REF15432
       SCOND-REF15433 AMAX-REF15434 WORK-REF15435 INFO-REF15436))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNML2 "zunml2_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNML2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNML2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15439 ':INT32) (N-REF15440 ':INT32)
                              (K-REF15441 ':INT32)
                              (LDA-REF15443 ':INT32)
                              (LDC-REF15446 ':INT32)
                              (INFO-REF15448 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15439 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15440 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15441 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15443 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15446 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15448 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15442 A)
                                            (TAU-REF15444 TAU)
                                            (C-REF15445 C)
                                            (WORK-REF15447 WORK))
      (%%ZUNML2 SIDE TRANS M-REF15439 N-REF15440 K-REF15441 A-REF15442
       LDA-REF15443 TAU-REF15444 C-REF15445 LDC-REF15446 WORK-REF15447
       INFO-REF15448))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNBDB6 "zunbdb6_")
  ((M1 :FOREIGN-ADDRESS) (M2 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X1 :FOREIGN-ADDRESS) (INCX1 :FOREIGN-ADDRESS) (X2 :FOREIGN-ADDRESS)
   (INCX2 :FOREIGN-ADDRESS) (Q1 :FOREIGN-ADDRESS)
   (LDQ1 :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNBDB6
    (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF15449 ':INT32)
                              (M2-REF15450 ':INT32)
                              (N-REF15451 ':INT32)
                              (INCX1-REF15453 ':INT32)
                              (INCX2-REF15455 ':INT32)
                              (LDQ1-REF15457 ':INT32)
                              (LDQ2-REF15459 ':INT32)
                              (LWORK-REF15461 ':INT32)
                              (INFO-REF15462 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF15449 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF15450 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15451 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF15453 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF15455 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF15457 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF15459 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15461 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15462 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF15452 X1)
                                            (X2-REF15454 X2)
                                            (Q1-REF15456 Q1)
                                            (Q2-REF15458 Q2)
                                            (WORK-REF15460 WORK))
      (%%ZUNBDB6 M1-REF15449 M2-REF15450 N-REF15451 X1-REF15452
       INCX1-REF15453 X2-REF15454 INCX2-REF15455 Q1-REF15456
       LDQ1-REF15457 Q2-REF15458 LDQ2-REF15459 WORK-REF15460
       LWORK-REF15461 INFO-REF15462))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTRTI2 "ztrti2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRTI2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15465 ':INT32)
                              (LDA-REF15467 ':INT32)
                              (INFO-REF15468 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15465 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15467 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15468 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15466 A))
      (%%ZTRTI2 UPLO DIAG N-REF15465 A-REF15466 LDA-REF15467
       INFO-REF15468))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED2 "dlaed2_")
  ((K :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (INDXQ :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (DLAMDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (INDX :FOREIGN-ADDRESS) (INDXC :FOREIGN-ADDRESS)
   (INDXP :FOREIGN-ADDRESS) (COLTYP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED2
    (K N N1 D Q LDQ INDXQ RHO Z DLAMDA W Q2 INDX INDXC INDXP COLTYP
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    COLTYP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF15469 ':INT32) (N-REF15470 ':INT32)
                              (N1-REF15471 ':INT32)
                              (LDQ-REF15474 ':INT32)
                              (RHO-REF15476 ':DOUBLE)
                              (INFO-REF15485 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15469 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15470 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF15471 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15474 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF15476 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15485 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15472 D)
                                            (Q-REF15473 Q)
                                            (INDXQ-REF15475 INDXQ)
                                            (Z-REF15477 Z)
                                            (DLAMDA-REF15478 DLAMDA)
                                            (W-REF15479 W)
                                            (Q2-REF15480 Q2)
                                            (INDX-REF15481 INDX)
                                            (INDXC-REF15482 INDXC)
                                            (INDXP-REF15483 INDXP)
                                            (COLTYP-REF15484 COLTYP))
      (%%DLAED2 K-REF15469 N-REF15470 N1-REF15471 D-REF15472 Q-REF15473
       LDQ-REF15474 INDXQ-REF15475 RHO-REF15476 Z-REF15477
       DLAMDA-REF15478 W-REF15479 Q2-REF15480 INDX-REF15481
       INDXC-REF15482 INDXP-REF15483 COLTYP-REF15484 INFO-REF15485))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLARRJ "slarrj_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E2 :FOREIGN-ADDRESS)
   (IFIRST :FOREIGN-ADDRESS) (ILAST :FOREIGN-ADDRESS)
   (RTOL :FOREIGN-ADDRESS) (OFFSET :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (SPDIAM :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLARRJ
    (N D E2 IFIRST ILAST RTOL OFFSET W WERR WORK IWORK PIVMIN SPDIAM
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLARRJ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SPDIAM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15486 ':INT32)
                              (IFIRST-REF15489 ':INT32)
                              (ILAST-REF15490 ':INT32)
                              (RTOL-REF15491 ':FLOAT)
                              (OFFSET-REF15492 ':INT32)
                              (PIVMIN-REF15497 ':FLOAT)
                              (SPDIAM-REF15498 ':FLOAT)
                              (INFO-REF15499 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15486 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF15489 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF15490 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL-REF15491 :FLOAT) RTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF15492 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF15497 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF15498 :FLOAT) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15499 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15487 D)
                                            (E2-REF15488 E2)
                                            (W-REF15493 W)
                                            (WERR-REF15494 WERR)
                                            (WORK-REF15495 WORK)
                                            (IWORK-REF15496 IWORK))
      (%%SLARRJ N-REF15486 D-REF15487 E2-REF15488 IFIRST-REF15489
       ILAST-REF15490 RTOL-REF15491 OFFSET-REF15492 W-REF15493
       WERR-REF15494 WORK-REF15495 IWORK-REF15496 PIVMIN-REF15497
       SPDIAM-REF15498 INFO-REF15499))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARRV "zlarrv_")
  ((N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (DOL :FOREIGN-ADDRESS) (DOU :FOREIGN-ADDRESS)
   (MINRGP :FOREIGN-ADDRESS) (RTOL1 :FOREIGN-ADDRESS)
   (RTOL2 :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WERR :FOREIGN-ADDRESS) (WGAP :FOREIGN-ADDRESS)
   (IBLOCK :FOREIGN-ADDRESS) (INDEXW :FOREIGN-ADDRESS)
   (GERS :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARRV
    (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W WERR WGAP
     IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARRV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINRGP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEXW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GERS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15500 ':INT32)
                              (VL-REF15501 ':DOUBLE)
                              (VU-REF15502 ':DOUBLE)
                              (PIVMIN-REF15505 ':DOUBLE)
                              (M-REF15507 ':INT32)
                              (DOL-REF15508 ':INT32)
                              (DOU-REF15509 ':INT32)
                              (MINRGP-REF15510 ':DOUBLE)
                              (RTOL1-REF15511 ':DOUBLE)
                              (RTOL2-REF15512 ':DOUBLE)
                              (LDZ-REF15520 ':INT32)
                              (INFO-REF15524 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15501 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15502 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF15505 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15507 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF15508 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF15509 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF15510 :DOUBLE) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF15511 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF15512 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15520 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15524 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15503 D)
                                            (L-REF15504 L)
                                            (ISPLIT-REF15506 ISPLIT)
                                            (W-REF15513 W)
                                            (WERR-REF15514 WERR)
                                            (WGAP-REF15515 WGAP)
                                            (IBLOCK-REF15516 IBLOCK)
                                            (INDEXW-REF15517 INDEXW)
                                            (GERS-REF15518 GERS)
                                            (Z-REF15519 Z)
                                            (ISUPPZ-REF15521 ISUPPZ)
                                            (WORK-REF15522 WORK)
                                            (IWORK-REF15523 IWORK))
      (%%ZLARRV N-REF15500 VL-REF15501 VU-REF15502 D-REF15503
       L-REF15504 PIVMIN-REF15505 ISPLIT-REF15506 M-REF15507
       DOL-REF15508 DOU-REF15509 MINRGP-REF15510 RTOL1-REF15511
       RTOL2-REF15512 W-REF15513 WERR-REF15514 WGAP-REF15515
       IBLOCK-REF15516 INDEXW-REF15517 GERS-REF15518 Z-REF15519
       LDZ-REF15520 ISUPPZ-REF15521 WORK-REF15522 IWORK-REF15523
       INFO-REF15524))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRS_AA "chetrs_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRS_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15526 ':INT32)
                              (NRHS-REF15527 ':INT32)
                              (LDA-REF15529 ':INT32)
                              (LDB-REF15532 ':INT32)
                              (LWORK-REF15534 ':INT32)
                              (INFO-REF15535 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15526 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15527 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15529 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15532 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15534 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15535 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15528 A)
                                            (IPIV-REF15530 IPIV)
                                            (B-REF15531 B)
                                            (WORK-REF15533 WORK))
      (%%CHETRS_AA UPLO N-REF15526 NRHS-REF15527 A-REF15528
       LDA-REF15529 IPIV-REF15530 B-REF15531 LDB-REF15532 WORK-REF15533
       LWORK-REF15534 INFO-REF15535))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STREXC "strexc_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (IFST :FOREIGN-ADDRESS)
   (ILST :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STREXC (COMPQ N T LDT Q LDQ IFST ILST WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STREXC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15537 ':INT32)
                              (LDT-REF15539 ':INT32)
                              (LDQ-REF15541 ':INT32)
                              (IFST-REF15542 ':INT32)
                              (ILST-REF15543 ':INT32)
                              (INFO-REF15545 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15537 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15539 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15541 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF15542 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF15543 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15545 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF15538 T)
                                            (Q-REF15540 Q)
                                            (WORK-REF15544 WORK))
      (%%STREXC COMPQ N-REF15537 T-REF15538 LDT-REF15539 Q-REF15540
       LDQ-REF15541 IFST-REF15542 ILST-REF15543 WORK-REF15544
       INFO-REF15545))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYCONV "ssyconv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYCONV (UPLO WAY N A LDA IPIV E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCONV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15548 ':INT32)
                              (LDA-REF15550 ':INT32)
                              (INFO-REF15553 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15548 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15550 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15553 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15549 A)
                                            (IPIV-REF15551 IPIV)
                                            (E-REF15552 E))
      (%%SSYCONV UPLO WAY N-REF15548 A-REF15549 LDA-REF15550
       IPIV-REF15551 E-REF15552 INFO-REF15553))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRS_AA "csytrs_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRS_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15555 ':INT32)
                              (NRHS-REF15556 ':INT32)
                              (LDA-REF15558 ':INT32)
                              (LDB-REF15561 ':INT32)
                              (LWORK-REF15563 ':INT32)
                              (INFO-REF15564 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15555 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15556 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15558 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15561 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15563 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15564 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15557 A)
                                            (IPIV-REF15559 IPIV)
                                            (B-REF15560 B)
                                            (WORK-REF15562 WORK))
      (%%CSYTRS_AA UPLO N-REF15555 NRHS-REF15556 A-REF15557
       LDA-REF15558 IPIV-REF15559 B-REF15560 LDB-REF15561 WORK-REF15562
       LWORK-REF15563 INFO-REF15564))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAED5 "slaed5_")
  ((I :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (DELTA :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (DLAM :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAED5 (I D Z DELTA RHO DLAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAED5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DELTA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DLAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF15565 ':INT32)
                              (RHO-REF15569 ':FLOAT)
                              (DLAM-REF15570 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF15565 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF15569 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DLAM-REF15570 :FLOAT) DLAM)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15566 D)
                                            (Z-REF15567 Z)
                                            (DELTA-REF15568 DELTA))
      (%%SLAED5 I-REF15565 D-REF15566 Z-REF15567 DELTA-REF15568
       RHO-REF15569 DLAM-REF15570))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORHR_COL "sorhr_col_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORHR_COL (M N NB A LDA T LDT D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORHR_COL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15571 ':INT32) (N-REF15572 ':INT32)
                              (NB-REF15573 ':INT32)
                              (LDA-REF15575 ':INT32)
                              (LDT-REF15577 ':INT32)
                              (INFO-REF15579 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15571 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15572 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15573 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15575 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15577 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15579 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15574 A)
                                            (T-REF15576 T)
                                            (D-REF15578 D))
      (%%SORHR_COL M-REF15571 N-REF15572 NB-REF15573 A-REF15574
       LDA-REF15575 T-REF15576 LDT-REF15577 D-REF15578 INFO-REF15579))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARCM "zlarcm_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARCM (M N A LDA B LDB C LDC RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARCM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15580 ':INT32) (N-REF15581 ':INT32)
                              (LDA-REF15583 ':INT32)
                              (LDB-REF15585 ':INT32)
                              (LDC-REF15587 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15580 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15581 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15583 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15585 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15587 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15582 A)
                                            (B-REF15584 B)
                                            (C-REF15586 C)
                                            (RWORK-REF15588 RWORK))
      (%%ZLARCM M-REF15580 N-REF15581 A-REF15582 LDA-REF15583
       B-REF15584 LDB-REF15585 C-REF15586 LDC-REF15587
       RWORK-REF15588))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGLSE "cgglse_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGLSE (M N P A LDA B LDB C D X WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGLSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15589 ':INT32) (N-REF15590 ':INT32)
                              (P-REF15591 ':INT32)
                              (LDA-REF15593 ':INT32)
                              (LDB-REF15595 ':INT32)
                              (LWORK-REF15600 ':INT32)
                              (INFO-REF15601 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15589 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15590 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15591 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15593 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15595 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15600 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15601 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15592 A)
                                            (B-REF15594 B)
                                            (C-REF15596 C)
                                            (D-REF15597 D)
                                            (X-REF15598 X)
                                            (WORK-REF15599 WORK))
      (%%CGGLSE M-REF15589 N-REF15590 P-REF15591 A-REF15592
       LDA-REF15593 B-REF15594 LDB-REF15595 C-REF15596 D-REF15597
       X-REF15598 WORK-REF15599 LWORK-REF15600 INFO-REF15601))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPSTF2 "dpstf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (PIV :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPSTF2 (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPSTF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15603 ':INT32)
                              (LDA-REF15605 ':INT32)
                              (RANK-REF15607 ':INT32)
                              (TOL-REF15608 ':DOUBLE)
                              (INFO-REF15610 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15603 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15605 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF15607 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF15608 :DOUBLE) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15610 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15604 A)
                                            (PIV-REF15606 PIV)
                                            (WORK-REF15609 WORK))
      (%%DPSTF2 UPLO N-REF15603 A-REF15604 LDA-REF15605 PIV-REF15606
       RANK-REF15607 TOL-REF15608 WORK-REF15609 INFO-REF15610))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSTEDC "cstedc_")
  ((COMPZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSTEDC
    (COMPZ N D E Z LDZ WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSTEDC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15612 ':INT32)
                              (LDZ-REF15616 ':INT32)
                              (LWORK-REF15618 ':INT32)
                              (LRWORK-REF15620 ':INT32)
                              (LIWORK-REF15622 ':INT32)
                              (INFO-REF15623 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15612 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15616 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15618 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF15620 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF15622 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15623 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15613 D)
                                            (E-REF15614 E)
                                            (Z-REF15615 Z)
                                            (WORK-REF15617 WORK)
                                            (RWORK-REF15619 RWORK)
                                            (IWORK-REF15621 IWORK))
      (%%CSTEDC COMPZ N-REF15612 D-REF15613 E-REF15614 Z-REF15615
       LDZ-REF15616 WORK-REF15617 LWORK-REF15618 RWORK-REF15619
       LRWORK-REF15620 IWORK-REF15621 LIWORK-REF15622 INFO-REF15623))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMR2 "sormr2_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMR2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15626 ':INT32) (N-REF15627 ':INT32)
                              (K-REF15628 ':INT32)
                              (LDA-REF15630 ':INT32)
                              (LDC-REF15633 ':INT32)
                              (INFO-REF15635 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15626 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15627 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15628 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15630 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15633 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15635 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15629 A)
                                            (TAU-REF15631 TAU)
                                            (C-REF15632 C)
                                            (WORK-REF15634 WORK))
      (%%SORMR2 SIDE TRANS M-REF15626 N-REF15627 K-REF15628 A-REF15629
       LDA-REF15630 TAU-REF15631 C-REF15632 LDC-REF15633 WORK-REF15634
       INFO-REF15635))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTGSY2 "ztgsy2_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (IJOB :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (LDD :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (LDE :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (RDSUM :FOREIGN-ADDRESS)
   (RDSCAL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTGSY2
    (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE RDSUM
     RDSCAL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTGSY2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSUM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RDSCAL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF15637 ':INT32)
                              (M-REF15638 ':INT32) (N-REF15639 ':INT32)
                              (LDA-REF15641 ':INT32)
                              (LDB-REF15643 ':INT32)
                              (LDC-REF15645 ':INT32)
                              (LDD-REF15647 ':INT32)
                              (LDE-REF15649 ':INT32)
                              (LDF-REF15651 ':INT32)
                              (SCALE-REF15652 ':DOUBLE)
                              (RDSUM-REF15653 ':DOUBLE)
                              (RDSCAL-REF15654 ':DOUBLE)
                              (INFO-REF15655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF15637 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15638 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15639 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15641 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15643 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15645 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF15647 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF15649 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF15651 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF15652 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF15653 :DOUBLE) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF15654 :DOUBLE) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15655 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15640 A)
                                            (B-REF15642 B)
                                            (C-REF15644 C)
                                            (D-REF15646 D)
                                            (E-REF15648 E)
                                            (F-REF15650 F))
      (%%ZTGSY2 TRANS IJOB-REF15637 M-REF15638 N-REF15639 A-REF15640
       LDA-REF15641 B-REF15642 LDB-REF15643 C-REF15644 LDC-REF15645
       D-REF15646 LDD-REF15647 E-REF15648 LDE-REF15649 F-REF15650
       LDF-REF15651 SCALE-REF15652 RDSUM-REF15653 RDSCAL-REF15654
       INFO-REF15655))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETRS "zhetrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15657 ':INT32)
                              (NRHS-REF15658 ':INT32)
                              (LDA-REF15660 ':INT32)
                              (LDB-REF15663 ':INT32)
                              (INFO-REF15664 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15657 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15658 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15660 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15663 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15664 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15659 A)
                                            (IPIV-REF15661 IPIV)
                                            (B-REF15662 B))
      (%%ZHETRS UPLO N-REF15657 NRHS-REF15658 A-REF15659 LDA-REF15660
       IPIV-REF15661 B-REF15662 LDB-REF15663 INFO-REF15664))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNHR_COL "cunhr_col_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNHR_COL (M N NB A LDA T LDT D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNHR_COL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15665 ':INT32) (N-REF15666 ':INT32)
                              (NB-REF15667 ':INT32)
                              (LDA-REF15669 ':INT32)
                              (LDT-REF15671 ':INT32)
                              (INFO-REF15673 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15665 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15666 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF15667 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15669 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15671 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15673 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15668 A)
                                            (T-REF15670 T)
                                            (D-REF15672 D))
      (%%CUNHR_COL M-REF15665 N-REF15666 NB-REF15667 A-REF15668
       LDA-REF15669 T-REF15670 LDT-REF15671 D-REF15672 INFO-REF15673))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARZB "dlarzb_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (STOREV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LDWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARZB
    (SIDE TRANS DIRECT STOREV M N K L V LDV T LDT C LDC WORK LDWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARZB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING STOREV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15678 ':INT32) (N-REF15679 ':INT32)
                              (K-REF15680 ':INT32) (L-REF15681 ':INT32)
                              (LDV-REF15683 ':INT32)
                              (LDT-REF15685 ':INT32)
                              (LDC-REF15687 ':INT32)
                              (LDWORK-REF15689 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15678 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15679 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF15680 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF15681 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF15683 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15685 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15687 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWORK-REF15689 :INT32) LDWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF15682 V)
                                            (T-REF15684 T)
                                            (C-REF15686 C)
                                            (WORK-REF15688 WORK))
      (%%DLARZB SIDE TRANS DIRECT STOREV M-REF15678 N-REF15679
       K-REF15680 L-REF15681 V-REF15682 LDV-REF15683 T-REF15684
       LDT-REF15685 C-REF15686 LDC-REF15687 WORK-REF15688
       LDWORK-REF15689))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANSY "dlansy_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15692 ':INT32)
                              (LDA-REF15694 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15692 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15694 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15693 A)
                                            (WORK-REF15695 WORK))
      (%%DLANSY NORM UPLO N-REF15692 A-REF15693 LDA-REF15694
       WORK-REF15695))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYSVXX "csysvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RPVGRW :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYSVXX
    (FACT UPLO N NRHS A LDA AF LDAF IPIV EQUED S B LDB X LDX RCOND
     RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS
     WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15698 ':INT32)
                              (NRHS-REF15699 ':INT32)
                              (LDA-REF15701 ':INT32)
                              (LDAF-REF15703 ':INT32)
                              (LDB-REF15708 ':INT32)
                              (LDX-REF15710 ':INT32)
                              (RCOND-REF15711 ':FLOAT)
                              (RPVGRW-REF15712 ':FLOAT)
                              (N_ERR_BNDS-REF15714 ':INT32)
                              (NPARAMS-REF15717 ':INT32)
                              (INFO-REF15721 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15698 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15699 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15701 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF15703 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15708 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF15710 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF15711 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF15712 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF15714 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF15717 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15721 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15700 A)
                                            (AF-REF15702 AF)
                                            (IPIV-REF15704 IPIV)
                                            (S-REF15706 S)
                                            (B-REF15707 B)
                                            (X-REF15709 X)
                                            (BERR-REF15713 BERR)
                                            (ERR_BNDS_NORM-REF15715
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF15716
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF15718 PARAMS)
                                            (WORK-REF15719 WORK)
                                            (RWORK-REF15720 RWORK))
      (%%CSYSVXX FACT UPLO N-REF15698 NRHS-REF15699 A-REF15700
       LDA-REF15701 AF-REF15702 LDAF-REF15703 IPIV-REF15704 EQUED
       S-REF15706 B-REF15707 LDB-REF15708 X-REF15709 LDX-REF15710
       RCOND-REF15711 RPVGRW-REF15712 BERR-REF15713 N_ERR_BNDS-REF15714
       ERR_BNDS_NORM-REF15715 ERR_BNDS_COMP-REF15716 NPARAMS-REF15717
       PARAMS-REF15718 WORK-REF15719 RWORK-REF15720 INFO-REF15721))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTF2_ROOK "zsytf2_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTF2_ROOK (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTF2_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15723 ':INT32)
                              (LDA-REF15725 ':INT32)
                              (INFO-REF15727 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15723 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15725 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15727 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15724 A)
                                            (IPIV-REF15726 IPIV))
      (%%ZSYTF2_ROOK UPLO N-REF15723 A-REF15724 LDA-REF15725
       IPIV-REF15726 INFO-REF15727))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGTTRS "cgttrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (DU :FOREIGN-ADDRESS) (DU2 :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGTTRS (TRANS N NRHS DL D DU DU2 IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGTTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    DU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15729 ':INT32)
                              (NRHS-REF15730 ':INT32)
                              (LDB-REF15737 ':INT32)
                              (INFO-REF15738 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15729 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF15730 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15737 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15738 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF15731 DL)
                                            (D-REF15732 D)
                                            (DU-REF15733 DU)
                                            (DU2-REF15734 DU2)
                                            (IPIV-REF15735 IPIV)
                                            (B-REF15736 B))
      (%%CGTTRS TRANS N-REF15729 NRHS-REF15730 DL-REF15731 D-REF15732
       DU-REF15733 DU2-REF15734 IPIV-REF15735 B-REF15736 LDB-REF15737
       INFO-REF15738))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQRT2 "sgeqrt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQRT2 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15739 ':INT32) (N-REF15740 ':INT32)
                              (LDA-REF15742 ':INT32)
                              (LDT-REF15744 ':INT32)
                              (INFO-REF15745 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15739 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15740 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15742 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF15744 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15745 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15741 A)
                                            (T-REF15743 T))
      (%%SGEQRT2 M-REF15739 N-REF15740 A-REF15741 LDA-REF15742
       T-REF15743 LDT-REF15744 INFO-REF15745))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORBDB1 "sorbdb1_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORBDB1
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15746 ':INT32) (P-REF15747 ':INT32)
                              (Q-REF15748 ':INT32)
                              (LDX11-REF15750 ':INT32)
                              (LDX21-REF15752 ':INT32)
                              (LWORK-REF15759 ':INT32)
                              (INFO-REF15760 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15746 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15747 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15748 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15750 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15752 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15759 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15760 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15749 X11)
                                            (X21-REF15751 X21)
                                            (THETA-REF15753 THETA)
                                            (PHI-REF15754 PHI)
                                            (TAUP1-REF15755 TAUP1)
                                            (TAUP2-REF15756 TAUP2)
                                            (TAUQ1-REF15757 TAUQ1)
                                            (WORK-REF15758 WORK))
      (%%SORBDB1 M-REF15746 P-REF15747 Q-REF15748 X11-REF15749
       LDX11-REF15750 X21-REF15751 LDX21-REF15752 THETA-REF15753
       PHI-REF15754 TAUP1-REF15755 TAUP2-REF15756 TAUQ1-REF15757
       WORK-REF15758 LWORK-REF15759 INFO-REF15760))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNM22 "zunm22_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (N1 :FOREIGN-ADDRESS)
   (N2 :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNM22
    (SIDE TRANS M N N1 N2 Q LDQ C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNM22)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15763 ':INT32) (N-REF15764 ':INT32)
                              (N1-REF15765 ':INT32)
                              (N2-REF15766 ':INT32)
                              (LDQ-REF15768 ':INT32)
                              (LDC-REF15770 ':INT32)
                              (LWORK-REF15772 ':INT32)
                              (INFO-REF15773 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15763 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15764 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF15765 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF15766 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15768 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF15770 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15772 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15773 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Q-REF15767 Q)
                                            (C-REF15769 C)
                                            (WORK-REF15771 WORK))
      (%%ZUNM22 SIDE TRANS M-REF15763 N-REF15764 N1-REF15765
       N2-REF15766 Q-REF15767 LDQ-REF15768 C-REF15769 LDC-REF15770
       WORK-REF15771 LWORK-REF15772 INFO-REF15773))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASD5 "slasd5_")
  ((I :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (DELTA :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (DSIGMA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASD5 (I D Z DELTA RHO DSIGMA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASD5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DELTA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RHO)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DSIGMA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((I-REF15774 ':INT32)
                              (RHO-REF15778 ':FLOAT)
                              (DSIGMA-REF15779 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF I-REF15774 :INT32) I)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF15778 :FLOAT) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF DSIGMA-REF15779 :FLOAT) DSIGMA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF15775 D)
                                            (Z-REF15776 Z)
                                            (DELTA-REF15777 DELTA)
                                            (WORK-REF15780 WORK))
      (%%SLASD5 I-REF15774 D-REF15775 Z-REF15776 DELTA-REF15777
       RHO-REF15778 DSIGMA-REF15779 WORK-REF15780))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_GEAMV "dla_geamv_")
  ((TRANS :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_GEAMV
    (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GEAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF15781 ':INT32)
                              (M-REF15782 ':INT32) (N-REF15783 ':INT32)
                              (ALPHA-REF15784 ':DOUBLE)
                              (LDA-REF15786 ':INT32)
                              (INCX-REF15788 ':INT32)
                              (BETA-REF15789 ':DOUBLE)
                              (INCY-REF15791 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF15781 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15782 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15783 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF15784 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15786 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF15788 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF15789 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF15791 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15785 A)
                                            (X-REF15787 X)
                                            (Y-REF15790 Y))
      (%%DLA_GEAMV TRANS-REF15781 M-REF15782 N-REF15783 ALPHA-REF15784
       A-REF15785 LDA-REF15786 X-REF15787 INCX-REF15788 BETA-REF15789
       Y-REF15790 INCY-REF15791))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBEVX_2STAGE "chbevx_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBEVX_2STAGE
    (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z LDZ
     WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVX_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15795 ':INT32)
                              (KD-REF15796 ':INT32)
                              (LDAB-REF15798 ':INT32)
                              (LDQ-REF15800 ':INT32)
                              (VL-REF15801 ':FLOAT)
                              (VU-REF15802 ':FLOAT)
                              (IL-REF15803 ':INT32)
                              (IU-REF15804 ':INT32)
                              (ABSTOL-REF15805 ':FLOAT)
                              (M-REF15806 ':INT32)
                              (LDZ-REF15809 ':INT32)
                              (LWORK-REF15811 ':INT32)
                              (INFO-REF15815 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15795 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15796 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15798 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF15800 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF15801 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF15802 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF15803 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF15804 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF15805 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15806 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF15809 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15811 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15815 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF15797 AB)
                                            (Q-REF15799 Q)
                                            (W-REF15807 W)
                                            (Z-REF15808 Z)
                                            (WORK-REF15810 WORK)
                                            (RWORK-REF15812 RWORK)
                                            (IWORK-REF15813 IWORK)
                                            (IFAIL-REF15814 IFAIL))
      (%%CHBEVX_2STAGE JOBZ RANGE UPLO N-REF15795 KD-REF15796
       AB-REF15797 LDAB-REF15798 Q-REF15799 LDQ-REF15800 VL-REF15801
       VU-REF15802 IL-REF15803 IU-REF15804 ABSTOL-REF15805 M-REF15806
       W-REF15807 Z-REF15808 LDZ-REF15809 WORK-REF15810 LWORK-REF15811
       RWORK-REF15812 IWORK-REF15813 IFAIL-REF15814 INFO-REF15815))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRD_SY2SB "ssytrd_sy2sb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRD_SY2SB
    (UPLO N KD A LDA AB LDAB TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRD_SY2SB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15817 ':INT32)
                              (KD-REF15818 ':INT32)
                              (LDA-REF15820 ':INT32)
                              (LDAB-REF15822 ':INT32)
                              (LWORK-REF15825 ':INT32)
                              (INFO-REF15826 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15817 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF15818 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15820 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF15822 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15825 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15826 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15819 A)
                                            (AB-REF15821 AB)
                                            (TAU-REF15823 TAU)
                                            (WORK-REF15824 WORK))
      (%%SSYTRD_SY2SB UPLO N-REF15817 KD-REF15818 A-REF15819
       LDA-REF15820 AB-REF15821 LDAB-REF15822 TAU-REF15823
       WORK-REF15824 LWORK-REF15825 INFO-REF15826))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPPEQU "dppequ_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPPEQU (UPLO N AP S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPEQU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF15828 ':INT32)
                              (SCOND-REF15831 ':DOUBLE)
                              (AMAX-REF15832 ':DOUBLE)
                              (INFO-REF15833 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15828 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF15831 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF15832 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15833 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF15829 AP)
                                            (S-REF15830 S))
      (%%DPPEQU UPLO N-REF15828 AP-REF15829 S-REF15830 SCOND-REF15831
       AMAX-REF15832 INFO-REF15833))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNBDB3 "cunbdb3_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNBDB3
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15834 ':INT32) (P-REF15835 ':INT32)
                              (Q-REF15836 ':INT32)
                              (LDX11-REF15838 ':INT32)
                              (LDX21-REF15840 ':INT32)
                              (LWORK-REF15847 ':INT32)
                              (INFO-REF15848 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15834 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF15835 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF15836 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF15838 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF15840 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15847 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15848 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF15837 X11)
                                            (X21-REF15839 X21)
                                            (THETA-REF15841 THETA)
                                            (PHI-REF15842 PHI)
                                            (TAUP1-REF15843 TAUP1)
                                            (TAUP2-REF15844 TAUP2)
                                            (TAUQ1-REF15845 TAUQ1)
                                            (WORK-REF15846 WORK))
      (%%CUNBDB3 M-REF15834 P-REF15835 Q-REF15836 X11-REF15837
       LDX11-REF15838 X21-REF15839 LDX21-REF15840 THETA-REF15841
       PHI-REF15842 TAUP1-REF15843 TAUP2-REF15844 TAUQ1-REF15845
       WORK-REF15846 LWORK-REF15847 INFO-REF15848))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQP3 "zgeqp3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (JPVT :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQP3 (M N A LDA JPVT TAU WORK LWORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQP3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15849 ':INT32) (N-REF15850 ':INT32)
                              (LDA-REF15852 ':INT32)
                              (LWORK-REF15856 ':INT32)
                              (INFO-REF15858 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15849 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15850 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15852 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF15856 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15858 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15851 A)
                                            (JPVT-REF15853 JPVT)
                                            (TAU-REF15854 TAU)
                                            (WORK-REF15855 WORK)
                                            (RWORK-REF15857 RWORK))
      (%%ZGEQP3 M-REF15849 N-REF15850 A-REF15851 LDA-REF15852
       JPVT-REF15853 TAU-REF15854 WORK-REF15855 LWORK-REF15856
       RWORK-REF15857 INFO-REF15858))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEQR2P "cgeqr2p_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEQR2P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF15859 ':INT32) (N-REF15860 ':INT32)
                              (LDA-REF15862 ':INT32)
                              (INFO-REF15865 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF15859 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15860 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF15862 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15865 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF15861 A)
                                            (TAU-REF15863 TAU)
                                            (WORK-REF15864 WORK))
      (%%CGEQR2P M-REF15859 N-REF15860 A-REF15861 LDA-REF15862
       TAU-REF15863 WORK-REF15864 INFO-REF15865))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAEIN "zlaein_")
  ((RIGHTV :FOREIGN-ADDRESS) (NOINIT :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (EPS3 :FOREIGN-ADDRESS) (SMLNUM :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAEIN
    (RIGHTV NOINIT N H LDH W V B LDB RWORK EPS3 SMLNUM INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAEIN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RIGHTV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NOINIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT EPS3)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SMLNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((RIGHTV-REF15866 ':INT32)
                              (NOINIT-REF15867 ':INT32)
                              (N-REF15868 ':INT32)
                              (LDH-REF15870 ':INT32)
                              (W-REF15871
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDB-REF15874 ':INT32)
                              (EPS3-REF15876 ':DOUBLE)
                              (SMLNUM-REF15877 ':DOUBLE)
                              (INFO-REF15878 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF RIGHTV-REF15866 :INT32) RIGHTV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NOINIT-REF15867 :INT32) NOINIT)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF15868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF15870 :INT32) LDH)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              W-REF15871
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART W)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART W)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF15874 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF EPS3-REF15876 :DOUBLE) EPS3)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLNUM-REF15877 :DOUBLE) SMLNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF15878 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF15869 H)
                                            (V-REF15872 V)
                                            (B-REF15873 B)
                                            (RWORK-REF15875 RWORK))
      (%%ZLAEIN RIGHTV-REF15866 NOINIT-REF15867 N-REF15868 H-REF15869
       LDH-REF15870 W-REF15871 V-REF15872 B-REF15873 LDB-REF15874
       RWORK-REF15875 EPS3-REF15876 SMLNUM-REF15877 INFO-REF15878))))

(COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%ZHEGST %ZHEGST
                      %%ZLA_GBRPVGRW %ZLA_GBRPVGRW %%ZHEEV %ZHEEV
                      %%SGBSVX %SGBSVX %%SSYTRF_AA_2STAGE
                      %SSYTRF_AA_2STAGE %%ZGERFS %ZGERFS %%DORMHR
                      %DORMHR %%SSPEVD %SSPEVD %%SLADIV %SLADIV
                      %%CUNMHR %CUNMHR %%SLARZT %SLARZT %%CHERFSX
                      %CHERFSX %%ZPFTRF %ZPFTRF %%SSYTRI_3 %SSYTRI_3
                      %%CLANTP %CLANTP %%SLAED8 %SLAED8 %%ZLASYF_RK
                      %ZLASYF_RK %%CHEGVX %CHEGVX %%CSYTF2_ROOK
                      %CSYTF2_ROOK %%ZLA_SYRFSX_EXTENDED
                      %ZLA_SYRFSX_EXTENDED %%ZGELS %ZGELS %%DORMRZ
                      %DORMRZ %%CGEBD2 %CGEBD2 %%CTPQRT2 %CTPQRT2
                      %%CHETRS %CHETRS %%ZLASCL %ZLASCL %%DSTEDC
                      %DSTEDC %%DLATDF %DLATDF %%ZCGESV %ZCGESV
                      %%DLANEG %DLANEG %%DLAQR0 %DLAQR0
                      %%CSYTRF_AA_2STAGE %CSYTRF_AA_2STAGE %%SPBTF2
                      %SPBTF2 %%SLARRF %SLARRF %%SLASWLQ %SLASWLQ
                      %%ZPBSTF %ZPBSTF %%SGEQLF %SGEQLF %%CHETRD_HE2HB
                      %CHETRD_HE2HB %%ZHEEVX_2STAGE %ZHEEVX_2STAGE
                      %%SSYEV %SSYEV %%CLANHB %CLANHB %%ZLARZ %ZLARZ
                      %%ZLA_GBRCOND_X %ZLA_GBRCOND_X %%CLACN2 %CLACN2
                      %%SLAQGB %SLAQGB %%ZHETRI_ROOK %ZHETRI_ROOK
                      %%ZGESDD %ZGESDD %%CLAQP2 %CLAQP2 %%SORMLQ
                      %SORMLQ %%DORMQR %DORMQR %%CLATSQR %CLATSQR
                      %%CLATBS %CLATBS %%CLA_SYRCOND_X %CLA_SYRCOND_X
                      %%DPOTRI %DPOTRI %%DGEQRT2 %DGEQRT2 %%ZGELQ
                      %ZGELQ %%CLARFGP %CLARFGP %%ZDRSCL %ZDRSCL
                      %%DSBEVX_2STAGE %DSBEVX_2STAGE %%CTBCON %CTBCON
                      %%ZHETRS2 %ZHETRS2 %%CSYCON %CSYCON %%SPOTRF2
                      %SPOTRF2 %%ZLAR1V %ZLAR1V %%SPBTRS %SPBTRS
                      %%CHBEV_2STAGE %CHBEV_2STAGE %%SLAISNAN %SLAISNAN
                      %%ZTFTRI %ZTFTRI %%SLANHS %SLANHS %%SCSUM1
                      %SCSUM1 %%CGEMLQT %CGEMLQT %%SGEQR2P %SGEQR2P
                      %%DSYEV_2STAGE %DSYEV_2STAGE %%ZSYCONVF %ZSYCONVF
                      %%CLAIC1 %CLAIC1 %%DTPLQT %DTPLQT %%DSYSV %DSYSV
                      %%SGEHRD %SGEHRD %%CHBEVD %CHBEVD %%ZPOEQU
                      %ZPOEQU %%SBBCSD %SBBCSD %%ZSYCON_ROOK
                      %ZSYCON_ROOK %%ZLASWLQ %ZLASWLQ %%DGTTS2 %DGTTS2
                      %%DORGQL %DORGQL %%SLARSCL2 %SLARSCL2 %%ZTGSEN
                      %ZTGSEN %%CUNMBR %CUNMBR %%ZGGEV3 %ZGGEV3
                      %%ZGGEVX %ZGGEVX %%DORGRQ %DORGRQ %%ZSYSWAPR
                      %ZSYSWAPR %%ZGGHD3 %ZGGHD3 %%SLABRD %SLABRD
                      %%SGETF2 %SGETF2 %%DGELQ %DGELQ %%SSBGVD %SSBGVD
                      %%SSYCONVF %SSYCONVF %%DLARRV %DLARRV %%ZHSEIN
                      %ZHSEIN %%DPSTRF %DPSTRF %%SSYTRS %SSYTRS
                      %%ZGTTRS %ZGTTRS %%SLARFB %SLARFB %%ZTPQRT2
                      %ZTPQRT2 %%CGBSV %CGBSV %%DLAUUM %DLAUUM %%ZHPTRD
                      %ZHPTRD %%CLALS0 %CLALS0 %%DSYCONVF_ROOK
                      %DSYCONVF_ROOK %%CGGSVP3 %CGGSVP3 %%CSYTRS_ROOK
                      %CSYTRS_ROOK %%CPTRFS %CPTRFS %%ZGESVJ %ZGESVJ
                      %%CGELQ2 %CGELQ2 %%DLAED6 %DLAED6 %%DTGEVC
                      %DTGEVC %%STPTTF %STPTTF %%DLANHS %DLANHS %%CHPEV
                      %CHPEV %%ZHESV_AA_2STAGE %ZHESV_AA_2STAGE
                      %%SSPTRI %SSPTRI %%ZTPRFS %ZTPRFS %%SSYEV_2STAGE
                      %SSYEV_2STAGE %%DLASYF %DLASYF %%DSYTRS_AA_2STAGE
                      %DSYTRS_AA_2STAGE %%CTPTTF %CTPTTF %%SGELQT
                      %SGELQT %%DLA_SYRCOND %DLA_SYRCOND %%DLAQPS
                      %DLAQPS %%ZROT %ZROT %%CPOSV %CPOSV %%CLAGS2
                      %CLAGS2 %%ZHETRS_3 %ZHETRS_3 %%ZUNGTSQR %ZUNGTSQR
                      %%DGBCON %DGBCON %%ZGEESX %ZGEESX %%CLANGT
                      %CLANGT %%ZTPRFB %ZTPRFB %%CHETF2 %CHETF2
                      %%DLAQR3 %DLAQR3 %%ZHETRF_AA %ZHETRF_AA %%CHBTRD
                      %CHBTRD %%CGESVX %CGESVX %%ZTBTRS %ZTBTRS
                      %%DLATRS %DLATRS %%ZLARFB %ZLARFB %%ZLAGS2
                      %ZLAGS2 %%SLATSQR %SLATSQR %%SORMRQ %SORMRQ
                      %%DLASD2 %DLASD2 %%SLA_GERPVGRW %SLA_GERPVGRW
                      %%DLA_SYRPVGRW %DLA_SYRPVGRW %%SLAGS2 %SLAGS2
                      %%CLAUNHR_COL_GETRFNP2 %CLAUNHR_COL_GETRFNP2
                      %%CUNMLQ %CUNMLQ %%ZPOTRF2 %ZPOTRF2 %%SPTEQR
                      %SPTEQR %%CSPTRI %CSPTRI %%DTGEX2 %DTGEX2
                      %%STGSY2 %STGSY2 %%CLA_PORFSX_EXTENDED
                      %CLA_PORFSX_EXTENDED %%ZLATRS %ZLATRS %%SGBEQUB
                      %SGBEQUB %%CHEGV_2STAGE %CHEGV_2STAGE %%SLARUV
                      %SLARUV %%CHEEV_2STAGE %CHEEV_2STAGE %%ZUNBDB4
                      %ZUNBDB4 %%CHBEV %CHBEV %%CLANTR %CLANTR %%SLALN2
                      %SLALN2 %%SLAUUM %SLAUUM %%ZLAUNHR_COL_GETRFNP2
                      %ZLAUNHR_COL_GETRFNP2 %%DLA_WWADDW %DLA_WWADDW
                      %%DTGEXC %DTGEXC %%DSTEBZ %DSTEBZ %%CPBTRF
                      %CPBTRF %%SLA_GBRCOND %SLA_GBRCOND %%SORGRQ
                      %SORGRQ %%DGESVX %DGESVX %%SLARRC %SLARRC
                      %%CHGEQZ %CHGEQZ %%ZTZRZF %ZTZRZF %%ZPPEQU
                      %ZPPEQU %%DORBDB6 %DORBDB6 %%SPTTS2 %SPTTS2
                      %%SSYCON_ROOK %SSYCON_ROOK %%CSPSV %CSPSV
                      %%SGEJSV %SGEJSV %%ZLANGE %ZLANGE %%SSPGV %SSPGV
                      %%ZHETRI_3 %ZHETRI_3 %%CHECON_ROOK %CHECON_ROOK
                      %%SGEBD2 %SGEBD2 %%SSPGVX %SSPGVX %%CGEQRT
                      %CGEQRT %%DGGESX %DGGESX %%ZLAQR0 %ZLAQR0
                      %%DORML2 %DORML2 %%SORBDB3 %SORBDB3 %%CLANHE
                      %CLANHE %%CGEQLF %CGEQLF %%CLASYF_ROOK
                      %CLASYF_ROOK %%CHEGV %CHEGV %%ZSYCONVF_ROOK
                      %ZSYCONVF_ROOK %%CPOCON %CPOCON %%DSPGVX %DSPGVX
                      %%ZUNMR3 %ZUNMR3 %%DTRTRS %DTRTRS %%CLARTV
                      %CLARTV %%CSYEQUB %CSYEQUB %%ZUNML2 %ZUNML2
                      %%ZUNBDB6 %ZUNBDB6 %%ZTRTI2 %ZTRTI2 %%DLAED2
                      %DLAED2 %%SLARRJ %SLARRJ %%ZLARRV %ZLARRV
                      %%CHETRS_AA %CHETRS_AA %%STREXC %STREXC %%SSYCONV
                      %SSYCONV %%CSYTRS_AA %CSYTRS_AA %%SLAED5 %SLAED5
                      %%SORHR_COL %SORHR_COL %%ZLARCM %ZLARCM %%CGGLSE
                      %CGGLSE %%DPSTF2 %DPSTF2 %%CSTEDC %CSTEDC
                      %%SORMR2 %SORMR2 %%ZTGSY2 %ZTGSY2 %%ZHETRS
                      %ZHETRS %%CUNHR_COL %CUNHR_COL %%DLARZB %DLARZB
                      %%DLANSY %DLANSY %%CSYSVXX %CSYSVXX %%ZSYTF2_ROOK
                      %ZSYTF2_ROOK %%CGTTRS %CGTTRS %%SGEQRT2 %SGEQRT2
                      %%SORBDB1 %SORBDB1 %%ZUNM22 %ZUNM22 %%SLASD5
                      %SLASD5 %%DLA_GEAMV %DLA_GEAMV %%CHBEVX_2STAGE
                      %CHBEVX_2STAGE %%SSYTRD_SY2SB %SSYTRD_SY2SB
                      %%DPPEQU %DPPEQU %%CUNBDB3 %CUNBDB3 %%ZGEQP3
                      %ZGEQP3 %%CGEQR2P %CGEQR2P %%ZLAEIN %ZLAEIN))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS
  'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
  '(("ZHEGST" "zhegst_" %%ZHEGST %ZHEGST)
    ("ZLA_GBRPVGRW" "zla_gbrpvgrw_" %%ZLA_GBRPVGRW %ZLA_GBRPVGRW)
    ("ZHEEV" "zheev_" %%ZHEEV %ZHEEV)
    ("SGBSVX" "sgbsvx_" %%SGBSVX %SGBSVX)
    ("SSYTRF_AA_2STAGE" "ssytrf_aa_2stage_" %%SSYTRF_AA_2STAGE
     %SSYTRF_AA_2STAGE)
    ("ZGERFS" "zgerfs_" %%ZGERFS %ZGERFS)
    ("DORMHR" "dormhr_" %%DORMHR %DORMHR)
    ("SSPEVD" "sspevd_" %%SSPEVD %SSPEVD)
    ("SLADIV" "sladiv_" %%SLADIV %SLADIV)
    ("CUNMHR" "cunmhr_" %%CUNMHR %CUNMHR)
    ("SLARZT" "slarzt_" %%SLARZT %SLARZT)
    ("CHERFSX" "cherfsx_" %%CHERFSX %CHERFSX)
    ("ZPFTRF" "zpftrf_" %%ZPFTRF %ZPFTRF)
    ("SSYTRI_3" "ssytri_3_" %%SSYTRI_3 %SSYTRI_3)
    ("CLANTP" "clantp_" %%CLANTP %CLANTP)
    ("SLAED8" "slaed8_" %%SLAED8 %SLAED8)
    ("ZLASYF_RK" "zlasyf_rk_" %%ZLASYF_RK %ZLASYF_RK)
    ("CHEGVX" "chegvx_" %%CHEGVX %CHEGVX)
    ("CSYTF2_ROOK" "csytf2_rook_" %%CSYTF2_ROOK %CSYTF2_ROOK)
    ("ZLA_SYRFSX_EXTENDED" "zla_syrfsx_extended_" %%ZLA_SYRFSX_EXTENDED
     %ZLA_SYRFSX_EXTENDED)
    ("ZGELS" "zgels_" %%ZGELS %ZGELS)
    ("DORMRZ" "dormrz_" %%DORMRZ %DORMRZ)
    ("CGEBD2" "cgebd2_" %%CGEBD2 %CGEBD2)
    ("CTPQRT2" "ctpqrt2_" %%CTPQRT2 %CTPQRT2)
    ("CHETRS" "chetrs_" %%CHETRS %CHETRS)
    ("ZLASCL" "zlascl_" %%ZLASCL %ZLASCL)
    ("DSTEDC" "dstedc_" %%DSTEDC %DSTEDC)
    ("DLATDF" "dlatdf_" %%DLATDF %DLATDF)
    ("ZCGESV" "zcgesv_" %%ZCGESV %ZCGESV)
    ("DLANEG" "dlaneg_" %%DLANEG %DLANEG)
    ("DLAQR0" "dlaqr0_" %%DLAQR0 %DLAQR0)
    ("CSYTRF_AA_2STAGE" "csytrf_aa_2stage_" %%CSYTRF_AA_2STAGE
     %CSYTRF_AA_2STAGE)
    ("SPBTF2" "spbtf2_" %%SPBTF2 %SPBTF2)
    ("SLARRF" "slarrf_" %%SLARRF %SLARRF)
    ("SLASWLQ" "slaswlq_" %%SLASWLQ %SLASWLQ)
    ("ZPBSTF" "zpbstf_" %%ZPBSTF %ZPBSTF)
    ("SGEQLF" "sgeqlf_" %%SGEQLF %SGEQLF)
    ("CHETRD_HE2HB" "chetrd_he2hb_" %%CHETRD_HE2HB %CHETRD_HE2HB)
    ("ZHEEVX_2STAGE" "zheevx_2stage_" %%ZHEEVX_2STAGE %ZHEEVX_2STAGE)
    ("SSYEV" "ssyev_" %%SSYEV %SSYEV)
    ("CLANHB" "clanhb_" %%CLANHB %CLANHB)
    ("ZLARZ" "zlarz_" %%ZLARZ %ZLARZ)
    ("ZLA_GBRCOND_X" "zla_gbrcond_x_" %%ZLA_GBRCOND_X %ZLA_GBRCOND_X)
    ("CLACN2" "clacn2_" %%CLACN2 %CLACN2)
    ("SLAQGB" "slaqgb_" %%SLAQGB %SLAQGB)
    ("ZHETRI_ROOK" "zhetri_rook_" %%ZHETRI_ROOK %ZHETRI_ROOK)
    ("ZGESDD" "zgesdd_" %%ZGESDD %ZGESDD)
    ("CLAQP2" "claqp2_" %%CLAQP2 %CLAQP2)
    ("SORMLQ" "sormlq_" %%SORMLQ %SORMLQ)
    ("DORMQR" "dormqr_" %%DORMQR %DORMQR)
    ("CLATSQR" "clatsqr_" %%CLATSQR %CLATSQR)
    ("CLATBS" "clatbs_" %%CLATBS %CLATBS)
    ("CLA_SYRCOND_X" "cla_syrcond_x_" %%CLA_SYRCOND_X %CLA_SYRCOND_X)
    ("DPOTRI" "dpotri_" %%DPOTRI %DPOTRI)
    ("DGEQRT2" "dgeqrt2_" %%DGEQRT2 %DGEQRT2)
    ("ZGELQ" "zgelq_" %%ZGELQ %ZGELQ)
    ("CLARFGP" "clarfgp_" %%CLARFGP %CLARFGP)
    ("ZDRSCL" "zdrscl_" %%ZDRSCL %ZDRSCL)
    ("DSBEVX_2STAGE" "dsbevx_2stage_" %%DSBEVX_2STAGE %DSBEVX_2STAGE)
    ("CTBCON" "ctbcon_" %%CTBCON %CTBCON)
    ("ZHETRS2" "zhetrs2_" %%ZHETRS2 %ZHETRS2)
    ("CSYCON" "csycon_" %%CSYCON %CSYCON)
    ("SPOTRF2" "spotrf2_" %%SPOTRF2 %SPOTRF2)
    ("ZLAR1V" "zlar1v_" %%ZLAR1V %ZLAR1V)
    ("SPBTRS" "spbtrs_" %%SPBTRS %SPBTRS)
    ("CHBEV_2STAGE" "chbev_2stage_" %%CHBEV_2STAGE %CHBEV_2STAGE)
    ("SLAISNAN" "slaisnan_" %%SLAISNAN %SLAISNAN)
    ("ZTFTRI" "ztftri_" %%ZTFTRI %ZTFTRI)
    ("SLANHS" "slanhs_" %%SLANHS %SLANHS)
    ("SCSUM1" "scsum1_" %%SCSUM1 %SCSUM1)
    ("CGEMLQT" "cgemlqt_" %%CGEMLQT %CGEMLQT)
    ("SGEQR2P" "sgeqr2p_" %%SGEQR2P %SGEQR2P)
    ("DSYEV_2STAGE" "dsyev_2stage_" %%DSYEV_2STAGE %DSYEV_2STAGE)
    ("ZSYCONVF" "zsyconvf_" %%ZSYCONVF %ZSYCONVF)
    ("CLAIC1" "claic1_" %%CLAIC1 %CLAIC1)
    ("DTPLQT" "dtplqt_" %%DTPLQT %DTPLQT)
    ("DSYSV" "dsysv_" %%DSYSV %DSYSV)
    ("SGEHRD" "sgehrd_" %%SGEHRD %SGEHRD)
    ("CHBEVD" "chbevd_" %%CHBEVD %CHBEVD)
    ("ZPOEQU" "zpoequ_" %%ZPOEQU %ZPOEQU)
    ("SBBCSD" "sbbcsd_" %%SBBCSD %SBBCSD)
    ("ZSYCON_ROOK" "zsycon_rook_" %%ZSYCON_ROOK %ZSYCON_ROOK)
    ("ZLASWLQ" "zlaswlq_" %%ZLASWLQ %ZLASWLQ)
    ("DGTTS2" "dgtts2_" %%DGTTS2 %DGTTS2)
    ("DORGQL" "dorgql_" %%DORGQL %DORGQL)
    ("SLARSCL2" "slarscl2_" %%SLARSCL2 %SLARSCL2)
    ("ZTGSEN" "ztgsen_" %%ZTGSEN %ZTGSEN)
    ("CUNMBR" "cunmbr_" %%CUNMBR %CUNMBR)
    ("ZGGEV3" "zggev3_" %%ZGGEV3 %ZGGEV3)
    ("ZGGEVX" "zggevx_" %%ZGGEVX %ZGGEVX)
    ("DORGRQ" "dorgrq_" %%DORGRQ %DORGRQ)
    ("ZSYSWAPR" "zsyswapr_" %%ZSYSWAPR %ZSYSWAPR)
    ("ZGGHD3" "zgghd3_" %%ZGGHD3 %ZGGHD3)
    ("SLABRD" "slabrd_" %%SLABRD %SLABRD)
    ("SGETF2" "sgetf2_" %%SGETF2 %SGETF2)
    ("DGELQ" "dgelq_" %%DGELQ %DGELQ)
    ("SSBGVD" "ssbgvd_" %%SSBGVD %SSBGVD)
    ("SSYCONVF" "ssyconvf_" %%SSYCONVF %SSYCONVF)
    ("DLARRV" "dlarrv_" %%DLARRV %DLARRV)
    ("ZHSEIN" "zhsein_" %%ZHSEIN %ZHSEIN)
    ("DPSTRF" "dpstrf_" %%DPSTRF %DPSTRF)
    ("SSYTRS" "ssytrs_" %%SSYTRS %SSYTRS)
    ("ZGTTRS" "zgttrs_" %%ZGTTRS %ZGTTRS)
    ("SLARFB" "slarfb_" %%SLARFB %SLARFB)
    ("ZTPQRT2" "ztpqrt2_" %%ZTPQRT2 %ZTPQRT2)
    ("CGBSV" "cgbsv_" %%CGBSV %CGBSV)
    ("DLAUUM" "dlauum_" %%DLAUUM %DLAUUM)
    ("ZHPTRD" "zhptrd_" %%ZHPTRD %ZHPTRD)
    ("CLALS0" "clals0_" %%CLALS0 %CLALS0)
    ("DSYCONVF_ROOK" "dsyconvf_rook_" %%DSYCONVF_ROOK %DSYCONVF_ROOK)
    ("CGGSVP3" "cggsvp3_" %%CGGSVP3 %CGGSVP3)
    ("CSYTRS_ROOK" "csytrs_rook_" %%CSYTRS_ROOK %CSYTRS_ROOK)
    ("CPTRFS" "cptrfs_" %%CPTRFS %CPTRFS)
    ("ZGESVJ" "zgesvj_" %%ZGESVJ %ZGESVJ)
    ("CGELQ2" "cgelq2_" %%CGELQ2 %CGELQ2)
    ("DLAED6" "dlaed6_" %%DLAED6 %DLAED6)
    ("DTGEVC" "dtgevc_" %%DTGEVC %DTGEVC)
    ("STPTTF" "stpttf_" %%STPTTF %STPTTF)
    ("DLANHS" "dlanhs_" %%DLANHS %DLANHS)
    ("CHPEV" "chpev_" %%CHPEV %CHPEV)
    ("ZHESV_AA_2STAGE" "zhesv_aa_2stage_" %%ZHESV_AA_2STAGE
     %ZHESV_AA_2STAGE)
    ("SSPTRI" "ssptri_" %%SSPTRI %SSPTRI)
    ("ZTPRFS" "ztprfs_" %%ZTPRFS %ZTPRFS)
    ("SSYEV_2STAGE" "ssyev_2stage_" %%SSYEV_2STAGE %SSYEV_2STAGE)
    ("DLASYF" "dlasyf_" %%DLASYF %DLASYF)
    ("DSYTRS_AA_2STAGE" "dsytrs_aa_2stage_" %%DSYTRS_AA_2STAGE
     %DSYTRS_AA_2STAGE)
    ("CTPTTF" "ctpttf_" %%CTPTTF %CTPTTF)
    ("SGELQT" "sgelqt_" %%SGELQT %SGELQT)
    ("DLA_SYRCOND" "dla_syrcond_" %%DLA_SYRCOND %DLA_SYRCOND)
    ("DLAQPS" "dlaqps_" %%DLAQPS %DLAQPS) ("ZROT" "zrot_" %%ZROT %ZROT)
    ("CPOSV" "cposv_" %%CPOSV %CPOSV)
    ("CLAGS2" "clags2_" %%CLAGS2 %CLAGS2)
    ("ZHETRS_3" "zhetrs_3_" %%ZHETRS_3 %ZHETRS_3)
    ("ZUNGTSQR" "zungtsqr_" %%ZUNGTSQR %ZUNGTSQR)
    ("DGBCON" "dgbcon_" %%DGBCON %DGBCON)
    ("ZGEESX" "zgeesx_" %%ZGEESX %ZGEESX)
    ("CLANGT" "clangt_" %%CLANGT %CLANGT)
    ("ZTPRFB" "ztprfb_" %%ZTPRFB %ZTPRFB)
    ("CHETF2" "chetf2_" %%CHETF2 %CHETF2)
    ("DLAQR3" "dlaqr3_" %%DLAQR3 %DLAQR3)
    ("ZHETRF_AA" "zhetrf_aa_" %%ZHETRF_AA %ZHETRF_AA)
    ("CHBTRD" "chbtrd_" %%CHBTRD %CHBTRD)
    ("CGESVX" "cgesvx_" %%CGESVX %CGESVX)
    ("ZTBTRS" "ztbtrs_" %%ZTBTRS %ZTBTRS)
    ("DLATRS" "dlatrs_" %%DLATRS %DLATRS)
    ("ZLARFB" "zlarfb_" %%ZLARFB %ZLARFB)
    ("ZLAGS2" "zlags2_" %%ZLAGS2 %ZLAGS2)
    ("SLATSQR" "slatsqr_" %%SLATSQR %SLATSQR)
    ("SORMRQ" "sormrq_" %%SORMRQ %SORMRQ)
    ("DLASD2" "dlasd2_" %%DLASD2 %DLASD2)
    ("SLA_GERPVGRW" "sla_gerpvgrw_" %%SLA_GERPVGRW %SLA_GERPVGRW)
    ("DLA_SYRPVGRW" "dla_syrpvgrw_" %%DLA_SYRPVGRW %DLA_SYRPVGRW)
    ("SLAGS2" "slags2_" %%SLAGS2 %SLAGS2)
    ("CLAUNHR_COL_GETRFNP2" "claunhr_col_getrfnp2_"
     %%CLAUNHR_COL_GETRFNP2 %CLAUNHR_COL_GETRFNP2)
    ("CUNMLQ" "cunmlq_" %%CUNMLQ %CUNMLQ)
    ("ZPOTRF2" "zpotrf2_" %%ZPOTRF2 %ZPOTRF2)
    ("SPTEQR" "spteqr_" %%SPTEQR %SPTEQR)
    ("CSPTRI" "csptri_" %%CSPTRI %CSPTRI)
    ("DTGEX2" "dtgex2_" %%DTGEX2 %DTGEX2)
    ("STGSY2" "stgsy2_" %%STGSY2 %STGSY2)
    ("CLA_PORFSX_EXTENDED" "cla_porfsx_extended_" %%CLA_PORFSX_EXTENDED
     %CLA_PORFSX_EXTENDED)
    ("ZLATRS" "zlatrs_" %%ZLATRS %ZLATRS)
    ("SGBEQUB" "sgbequb_" %%SGBEQUB %SGBEQUB)
    ("CHEGV_2STAGE" "chegv_2stage_" %%CHEGV_2STAGE %CHEGV_2STAGE)
    ("SLARUV" "slaruv_" %%SLARUV %SLARUV)
    ("CHEEV_2STAGE" "cheev_2stage_" %%CHEEV_2STAGE %CHEEV_2STAGE)
    ("ZUNBDB4" "zunbdb4_" %%ZUNBDB4 %ZUNBDB4)
    ("CHBEV" "chbev_" %%CHBEV %CHBEV)
    ("CLANTR" "clantr_" %%CLANTR %CLANTR)
    ("SLALN2" "slaln2_" %%SLALN2 %SLALN2)
    ("SLAUUM" "slauum_" %%SLAUUM %SLAUUM)
    ("ZLAUNHR_COL_GETRFNP2" "zlaunhr_col_getrfnp2_"
     %%ZLAUNHR_COL_GETRFNP2 %ZLAUNHR_COL_GETRFNP2)
    ("DLA_WWADDW" "dla_wwaddw_" %%DLA_WWADDW %DLA_WWADDW)
    ("DTGEXC" "dtgexc_" %%DTGEXC %DTGEXC)
    ("DSTEBZ" "dstebz_" %%DSTEBZ %DSTEBZ)
    ("CPBTRF" "cpbtrf_" %%CPBTRF %CPBTRF)
    ("SLA_GBRCOND" "sla_gbrcond_" %%SLA_GBRCOND %SLA_GBRCOND)
    ("SORGRQ" "sorgrq_" %%SORGRQ %SORGRQ)
    ("DGESVX" "dgesvx_" %%DGESVX %DGESVX)
    ("SLARRC" "slarrc_" %%SLARRC %SLARRC)
    ("CHGEQZ" "chgeqz_" %%CHGEQZ %CHGEQZ)
    ("ZTZRZF" "ztzrzf_" %%ZTZRZF %ZTZRZF)
    ("ZPPEQU" "zppequ_" %%ZPPEQU %ZPPEQU)
    ("DORBDB6" "dorbdb6_" %%DORBDB6 %DORBDB6)
    ("SPTTS2" "sptts2_" %%SPTTS2 %SPTTS2)
    ("SSYCON_ROOK" "ssycon_rook_" %%SSYCON_ROOK %SSYCON_ROOK)
    ("CSPSV" "cspsv_" %%CSPSV %CSPSV)
    ("SGEJSV" "sgejsv_" %%SGEJSV %SGEJSV)
    ("ZLANGE" "zlange_" %%ZLANGE %ZLANGE)
    ("SSPGV" "sspgv_" %%SSPGV %SSPGV)
    ("ZHETRI_3" "zhetri_3_" %%ZHETRI_3 %ZHETRI_3)
    ("CHECON_ROOK" "checon_rook_" %%CHECON_ROOK %CHECON_ROOK)
    ("SGEBD2" "sgebd2_" %%SGEBD2 %SGEBD2)
    ("SSPGVX" "sspgvx_" %%SSPGVX %SSPGVX)
    ("CGEQRT" "cgeqrt_" %%CGEQRT %CGEQRT)
    ("DGGESX" "dggesx_" %%DGGESX %DGGESX)
    ("ZLAQR0" "zlaqr0_" %%ZLAQR0 %ZLAQR0)
    ("DORML2" "dorml2_" %%DORML2 %DORML2)
    ("SORBDB3" "sorbdb3_" %%SORBDB3 %SORBDB3)
    ("CLANHE" "clanhe_" %%CLANHE %CLANHE)
    ("CGEQLF" "cgeqlf_" %%CGEQLF %CGEQLF)
    ("CLASYF_ROOK" "clasyf_rook_" %%CLASYF_ROOK %CLASYF_ROOK)
    ("CHEGV" "chegv_" %%CHEGV %CHEGV)
    ("ZSYCONVF_ROOK" "zsyconvf_rook_" %%ZSYCONVF_ROOK %ZSYCONVF_ROOK)
    ("CPOCON" "cpocon_" %%CPOCON %CPOCON)
    ("DSPGVX" "dspgvx_" %%DSPGVX %DSPGVX)
    ("ZUNMR3" "zunmr3_" %%ZUNMR3 %ZUNMR3)
    ("DTRTRS" "dtrtrs_" %%DTRTRS %DTRTRS)
    ("CLARTV" "clartv_" %%CLARTV %CLARTV)
    ("CSYEQUB" "csyequb_" %%CSYEQUB %CSYEQUB)
    ("ZUNML2" "zunml2_" %%ZUNML2 %ZUNML2)
    ("ZUNBDB6" "zunbdb6_" %%ZUNBDB6 %ZUNBDB6)
    ("ZTRTI2" "ztrti2_" %%ZTRTI2 %ZTRTI2)
    ("DLAED2" "dlaed2_" %%DLAED2 %DLAED2)
    ("SLARRJ" "slarrj_" %%SLARRJ %SLARRJ)
    ("ZLARRV" "zlarrv_" %%ZLARRV %ZLARRV)
    ("CHETRS_AA" "chetrs_aa_" %%CHETRS_AA %CHETRS_AA)
    ("STREXC" "strexc_" %%STREXC %STREXC)
    ("SSYCONV" "ssyconv_" %%SSYCONV %SSYCONV)
    ("CSYTRS_AA" "csytrs_aa_" %%CSYTRS_AA %CSYTRS_AA)
    ("SLAED5" "slaed5_" %%SLAED5 %SLAED5)
    ("SORHR_COL" "sorhr_col_" %%SORHR_COL %SORHR_COL)
    ("ZLARCM" "zlarcm_" %%ZLARCM %ZLARCM)
    ("CGGLSE" "cgglse_" %%CGGLSE %CGGLSE)
    ("DPSTF2" "dpstf2_" %%DPSTF2 %DPSTF2)
    ("CSTEDC" "cstedc_" %%CSTEDC %CSTEDC)
    ("SORMR2" "sormr2_" %%SORMR2 %SORMR2)
    ("ZTGSY2" "ztgsy2_" %%ZTGSY2 %ZTGSY2)
    ("ZHETRS" "zhetrs_" %%ZHETRS %ZHETRS)
    ("CUNHR_COL" "cunhr_col_" %%CUNHR_COL %CUNHR_COL)
    ("DLARZB" "dlarzb_" %%DLARZB %DLARZB)
    ("DLANSY" "dlansy_" %%DLANSY %DLANSY)
    ("CSYSVXX" "csysvxx_" %%CSYSVXX %CSYSVXX)
    ("ZSYTF2_ROOK" "zsytf2_rook_" %%ZSYTF2_ROOK %ZSYTF2_ROOK)
    ("CGTTRS" "cgttrs_" %%CGTTRS %CGTTRS)
    ("SGEQRT2" "sgeqrt2_" %%SGEQRT2 %SGEQRT2)
    ("SORBDB1" "sorbdb1_" %%SORBDB1 %SORBDB1)
    ("ZUNM22" "zunm22_" %%ZUNM22 %ZUNM22)
    ("SLASD5" "slasd5_" %%SLASD5 %SLASD5)
    ("DLA_GEAMV" "dla_geamv_" %%DLA_GEAMV %DLA_GEAMV)
    ("CHBEVX_2STAGE" "chbevx_2stage_" %%CHBEVX_2STAGE %CHBEVX_2STAGE)
    ("SSYTRD_SY2SB" "ssytrd_sy2sb_" %%SSYTRD_SY2SB %SSYTRD_SY2SB)
    ("DPPEQU" "dppequ_" %%DPPEQU %DPPEQU)
    ("CUNBDB3" "cunbdb3_" %%CUNBDB3 %CUNBDB3)
    ("ZGEQP3" "zgeqp3_" %%ZGEQP3 %ZGEQP3)
    ("CGEQR2P" "cgeqr2p_" %%CGEQR2P %CGEQR2P)
    ("ZLAEIN" "zlaein_" %%ZLAEIN %ZLAEIN)))

(COMMON-LISP:EXPORT '(%ZHEGST %ZLA_GBRPVGRW %ZHEEV %SGBSVX
                      %SSYTRF_AA_2STAGE %ZGERFS %DORMHR %SSPEVD %SLADIV
                      %CUNMHR %SLARZT %CHERFSX %ZPFTRF %SSYTRI_3
                      %CLANTP %SLAED8 %ZLASYF_RK %CHEGVX %CSYTF2_ROOK
                      %ZLA_SYRFSX_EXTENDED %ZGELS %DORMRZ %CGEBD2
                      %CTPQRT2 %CHETRS %ZLASCL %DSTEDC %DLATDF %ZCGESV
                      %DLANEG %DLAQR0 %CSYTRF_AA_2STAGE %SPBTF2 %SLARRF
                      %SLASWLQ %ZPBSTF %SGEQLF %CHETRD_HE2HB
                      %ZHEEVX_2STAGE %SSYEV %CLANHB %ZLARZ
                      %ZLA_GBRCOND_X %CLACN2 %SLAQGB %ZHETRI_ROOK
                      %ZGESDD %CLAQP2 %SORMLQ %DORMQR %CLATSQR %CLATBS
                      %CLA_SYRCOND_X %DPOTRI %DGEQRT2 %ZGELQ %CLARFGP
                      %ZDRSCL %DSBEVX_2STAGE %CTBCON %ZHETRS2 %CSYCON
                      %SPOTRF2 %ZLAR1V %SPBTRS %CHBEV_2STAGE %SLAISNAN
                      %ZTFTRI %SLANHS %SCSUM1 %CGEMLQT %SGEQR2P
                      %DSYEV_2STAGE %ZSYCONVF %CLAIC1 %DTPLQT %DSYSV
                      %SGEHRD %CHBEVD %ZPOEQU %SBBCSD %ZSYCON_ROOK
                      %ZLASWLQ %DGTTS2 %DORGQL %SLARSCL2 %ZTGSEN
                      %CUNMBR %ZGGEV3 %ZGGEVX %DORGRQ %ZSYSWAPR %ZGGHD3
                      %SLABRD %SGETF2 %DGELQ %SSBGVD %SSYCONVF %DLARRV
                      %ZHSEIN %DPSTRF %SSYTRS %ZGTTRS %SLARFB %ZTPQRT2
                      %CGBSV %DLAUUM %ZHPTRD %CLALS0 %DSYCONVF_ROOK
                      %CGGSVP3 %CSYTRS_ROOK %CPTRFS %ZGESVJ %CGELQ2
                      %DLAED6 %DTGEVC %STPTTF %DLANHS %CHPEV
                      %ZHESV_AA_2STAGE %SSPTRI %ZTPRFS %SSYEV_2STAGE
                      %DLASYF %DSYTRS_AA_2STAGE %CTPTTF %SGELQT
                      %DLA_SYRCOND %DLAQPS %ZROT %CPOSV %CLAGS2
                      %ZHETRS_3 %ZUNGTSQR %DGBCON %ZGEESX %CLANGT
                      %ZTPRFB %CHETF2 %DLAQR3 %ZHETRF_AA %CHBTRD
                      %CGESVX %ZTBTRS %DLATRS %ZLARFB %ZLAGS2 %SLATSQR
                      %SORMRQ %DLASD2 %SLA_GERPVGRW %DLA_SYRPVGRW
                      %SLAGS2 %CLAUNHR_COL_GETRFNP2 %CUNMLQ %ZPOTRF2
                      %SPTEQR %CSPTRI %DTGEX2 %STGSY2
                      %CLA_PORFSX_EXTENDED %ZLATRS %SGBEQUB
                      %CHEGV_2STAGE %SLARUV %CHEEV_2STAGE %ZUNBDB4
                      %CHBEV %CLANTR %SLALN2 %SLAUUM
                      %ZLAUNHR_COL_GETRFNP2 %DLA_WWADDW %DTGEXC %DSTEBZ
                      %CPBTRF %SLA_GBRCOND %SORGRQ %DGESVX %SLARRC
                      %CHGEQZ %ZTZRZF %ZPPEQU %DORBDB6 %SPTTS2
                      %SSYCON_ROOK %CSPSV %SGEJSV %ZLANGE %SSPGV
                      %ZHETRI_3 %CHECON_ROOK %SGEBD2 %SSPGVX %CGEQRT
                      %DGGESX %ZLAQR0 %DORML2 %SORBDB3 %CLANHE %CGEQLF
                      %CLASYF_ROOK %CHEGV %ZSYCONVF_ROOK %CPOCON
                      %DSPGVX %ZUNMR3 %DTRTRS %CLARTV %CSYEQUB %ZUNML2
                      %ZUNBDB6 %ZTRTI2 %DLAED2 %SLARRJ %ZLARRV
                      %CHETRS_AA %STREXC %SSYCONV %CSYTRS_AA %SLAED5
                      %SORHR_COL %ZLARCM %CGGLSE %DPSTF2 %CSTEDC
                      %SORMR2 %ZTGSY2 %ZHETRS %CUNHR_COL %DLARZB
                      %DLANSY %CSYSVXX %ZSYTF2_ROOK %CGTTRS %SGEQRT2
                      %SORBDB1 %ZUNM22 %SLASD5 %DLA_GEAMV
                      %CHBEVX_2STAGE %SSYTRD_SY2SB %DPPEQU %CUNBDB3
                      %ZGEQP3 %CGEQR2P %ZLAEIN)
                    '#:MAGICL.LAPACK-CFFI)

;;; End of file.
